Предмет:
ИнформатикаАвтор:
skinny minnywdkkvar
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Автор:
benitoДобавить свой ответ
Предмет:
Физкультура и спортАвтор:
mateogregoryОтветов:
Смотреть
Предмет:
АлгебраАвтор:
godofredoamosОтветов:
Смотреть
Предмет:
МатематикаАвтор:
mcclureОтветов:
Смотреть