программа спрашивает стороны прямоугольника,находим площадь и выводим на экран результат.Далее программа спрашивает любое число если число делиться на 5 выводит на экран сообщение число кратно 5 иначе выводит сообщение число не кратно 5 далее программа спрашивает как вас зовут и раз вывести имя на экран

меня на уроке не было

я вам высокую оценку поставлю

Жди

Uses crt;var k,b,f,i:real; y:string;a:integer;s:real; begin clrscr; begin writeln('vvod'); readln(a); if a mod 5=0 then writeln('Число ',a,' кратно 5 ') else writeln('Число ',a,' не кратно 5') end;write('Сторона 1:'); readln(k); write('Сторона 2:'); readln(b); f:=a*b; writeln('Площадь=',f:10:3); writeln('Как Вас зовут?');readln(y);writeln('Вас зовут ',y);end.

Три программы соеденины в одну. Нужно уважать людей которые помогают Вам. Всего доброго ;)

1) Программа на нахождение кратности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. 2) Программа на нахождение площадиuses crt; var a,b,s:real; begin clrscr; write('Сторона 1:'); readln(a); write('Сторона 2:'); readln(b); s:=a*b; writeln('Площадь=',s:10:3); end.