Компьютер, рисунки, графики, вроде все.
Uses crt;var a,i:byte;
s:real;
begin
clrscr;
for i:=1 to 4 do
begin
writeln('vvod');
readln(a);
if a mod 5=0 then writeln('Число ',a,' кратно 5 ')
else writeln('Число ',a,' не кратно 5')
end;
end.
Докажите, что если два числа четные, то их сумма и разность, тоже четные.
модель
на одну букву в леао