Program Max;
Uses Crt;
var a,b,max:real;
begin
clrscr;
write('Введите число а:');
readln(a);
write('Введите число b:');
readln(b);
if (a=b) then writeln('Числа одинаковы')
else begin
max:=a;
if (b>a) then max:=b;
writeln('Наибольшее число:',max);
end;
readkey;
end.
A+B/C+sqrt(C)/A-B ...........
<span>1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
readln;
end<span>.</span></span>
1)Каждые 15 минут вставать из-за компьютера и делать зарядку для глаз (1 минута)
2)Не сутулится, увлекшись работой и позабыв обо всем, близко смотря в экран
3)Находится на безопасном для глаз расстоянии от экрана
3 6 7 это номера примеров которые записаны не верно