Составьте программу вычисления количества трехзначных чисел, у которых сумма цифр...

0 голосов
30 просмотров

Составьте программу вычисления количества трехзначных чисел, у которых сумма цифр является чётным числом.


Информатика (92 баллов) | 30 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program zadanie;
var i,j,t, r:integer;
begin
writeln('Высчитываем числа.....');
for i:=1 to 9 do
    for j:=1 to 9 do
        for t:=1 to 9 do
        begin
        r:=i+j+t;
        if (r mod 2=0) then
        begin
        r:=i*100+j*10+t;
        writeln(r);
        end;
        end;
end.

Если прога должна сама вывести все существующие числа, удовлетворяющие условию

(458 баллов)
0

Спасибо большое