Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Информатика 9 класс!! Помогите!
Найти произведение всех целых чисел от 1 до a (значение a вводится с клавиатуры).
система PASCAL

Ответ оставил Гость

var i,a,s:integer;
beginreadln(a);
s:=1;
for i:=1 to a dos:=s*i;
writeln(s);
end.