Найти произведение всех целых чисел, кратных 5, от а до а+5 - Turbo Pascal

Формулировка задачи:

Найти произведение всех целых чисел, кратных 5,от а до а+5


textual

Код к задаче: «Найти произведение всех целых чисел, кратных 5, от а до а+5 - Turbo Pascal»

var a,p:integer;
begin
write('a=');
readln(a);
if a mod 5=0 then p:=a*(a+5)
else p:=a+(5-a mod 5);
write('P=',p);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5

Источник
Похожие ответы