Помогите программу в паскале составить Программа выводит на экран таблицу пифагора и вычисляет количество нечетных чисел
Помогите программу в паскале составить Программа выводит на экран таблицу пифагора и вычисляет количество нечетных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar i, k, j:byte;
begin
k:=0;
for i:=1 to 20 do
begin
for j:=1 to 20 do
begin
write(i*j:4);
if i*j mod 2<>0 then inc(k);
end;
writeln;
end;
writeln('Количество нечетных чисел=', k);
end.
Не нашли ответ?
Похожие вопросы