Программа спрашивает стороны прямоугольника,находим площадь и выводим ** экран...

Question

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

Answer 1

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.

Comments

можешь на показать

---

скриншот скинуть или как нибуь еще

---

Основную работу я сделал за Вас - то есть написал все программы. Дело осталось за малым. Удачи с программирование ;)

---

блииииин

---

мне срочно надо

---

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

---

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

---

Жди

---

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.

---

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