Напишите небольшое эссе на тему основная формула информатики (2 в степени i) знаю что полный бред но - id562123320210818 от Love25252525 18.08.2021 05:38

Question

Информатика: Напишите небольшое эссе на тему основная формула информатики (2 в степени i) знаю что полный бред но

Love25252525 · 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.

Напишите небольшое эссе на тему "основная формула информатики" (2 в степени i) знаю что полный бред но

MOGZ ответил