Даны три числа x, y и z. найти: количество и сумму четных чисел, больших данного z.

умнаясобачка умнаясобачка    3   18.05.2019 15:10    0

Ответы
рома1325 рома1325  11.06.2020 21:24

program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика