Взломали акк инстаграм поменяли почту а почто пишет что не существует поддержка не если кто знает буду - id1632422520200721 от 79869106698 21.07.2020 14:12

Question

Информатика: Взломали акк инстаграм поменяли почту а почто пишет что не существует поддержка не если кто знает буду очень блогадарен от

79869106698 · Accepted Answer

1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.

Взломали акк инстаграм поменяли почту а почто пишет что не существует поддержка не если кто знает буду очень блогадарен от

MOGZ ответил