............................
Var i, k : integer; // Для расчета используем целые числа
begin
for k := 1 to 6 do begin // Берем числа от 1 до 6
for i := 1 to 10 do begin // Умножаем на числа от 1 до 10
writeln(k, ' x ', i, ' = ', k * i); // Выводим результат умножения
end;
writeln('===');
end;
end.
<em>var i,k,x:integer;
</em>
<em>begin
</em>
<em>i:=0;
</em>
<em>x:=1;
</em>
<em>while x<>0 do
</em>
<em>begin
</em>
<em>read(x);
</em>
<em>if (x mod 5=0)and(x<>0) then k:=k+1;
</em>
<em>end;
</em>
<em>writeln('Количество чисел кратных 5= ',k);
</em>
<em>end. </em>