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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ