Паскаль!!! Даны четыре целых числа, сколько из них четные. Решение
Answers & Comments
Antipodd
Var a,b,c,d,x:integer; begin x:=0; wirteln('Введите число 1'); readln(a); wirteln('Введите число 2'); readln(b); wirteln('Введите число 3'); readln(c); wirteln('Введите число 4'); readln(c); if a div 2 = 0 then x:=x+1; if b div 2 = 0 then x:=x+1; if c div 2 = 0 then x:=x+1; if d div 2 = 0 then x:=x+1; writeln ('Четных чисел= ',x) end.
Answers & Comments
begin
x:=0;
wirteln('Введите число 1');
readln(a);
wirteln('Введите число 2');
readln(b);
wirteln('Введите число 3');
readln(c);
wirteln('Введите число 4');
readln(c);
if a div 2 = 0 then x:=x+1;
if b div 2 = 0 then x:=x+1;
if c div 2 = 0 then x:=x+1;
if d div 2 = 0 then x:=x+1;
writeln ('Четных чисел= ',x)
end.