Помогите!!!!! Срочно!!!!!! умоляю!!!!!!! первые три номера!!!!! если можно с объяснением!!!!(Паскаль+ проверка на анамалии)!!!!!!!!!!!Заранее, буду благодарна!!!!!!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Мне попадались такие же на проверочной контрольной работе
А первое я постараюсь сейчас написать.
а вот и первое:
var
x, y, max:integer;
F:real;
begin
write('x=', 'y=');
max:=0;
readln(x);
if x>y then F:=max(x,y-5,x^2+1);
if x<=y then F:=max(х+1, у+1,1);
writeln('F=',F);
end.
var x, y, f: integer;
function max(a, b, c: integer): integer;
var temp_max: integer;
begin
if a > b then temp_max := a
else temp_max := b;
if c > temp_max then temp_max := c;
max := temp_max;
end;
begin
write('Введите x, y: '); readln(x, y);
if(x > y) then f := max(x, y - 5, x*x + 1)
else f := max(x + 1, y + 1, 3);
writeln('f = ' , f);
end.