Одоевский
5 год назад
Пожалуйста посчитайте пожалуйста срочно программа Pascal ABCпрограмма спрашивает стороны прямоугольника (А,В)находят площадь А*В и выводит результат на экран. далее программа спрашивает любое число если оно деляться на 5 , но выводит сообщение (число кратко 5 ) иначе выводит число (не кратко 5 )почему не правельно срочно
ОТВЕТЫ
Bronislav
Oct 24, 2020
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.
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.
491
Смежные вопросы:
