Цитата:
Сообщение от НаталияД
Использовать цикл с параметром (For).подсчитайте произведение числ оканчивающихся на 6, в интервале от 100 до 200
|
По-моему так:
Код:
var
i:integer;
p:real;
begin
p:=1;
for i:=100 to 200 do begin
if i mod 10=6 then p:=p*i;
end;
writeln (p);
readln;
end.