На интервале от 12 до 100 определить числа кратные 11. Найти произведение этих чисел.
Program Reshenie;
Uses crt;
Var i,j:integer;
s:longint;
begin
clrscr;
s:=1;
writeln('Числа кратные 11 в интрвале от 12 до 100:');
for i:=12 to 100 do begin
if i mod 11=0 then begin
writeln(i);
s:=s*i;
end
end;
writeln('Произведение этих чисел: ',s);
write('Нажмите Enter');
readln;
end.
|