Pascal abc. Последовательно вводятся 10 целых - вопрос №1015383059 от sadovinaviktoriay 27.10.2020 00:22

Question

Информатика: Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

sadovinaviktoriay · Answer

var  i,a,pr:integer; begin  pr:=1;  for i:=1 to 10 do    begin      readln(a);      if a mod 5 = 0 then          pr:=pr*a;    end;  writeln(pr); end....