Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.