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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
