Регистрация
destroyer0800
22.10.2022 09:24
Информатика
Есть ответ 👍

Написать программу, подсчитывающую количество четных и нечетных цифр в четырехзначном числе . ( в паскале с использованием цикла for)

243
422
Посмотреть ответы 2

Ответы на вопрос:

Zulem
Zulem
4,8(22 оценок)
Var a,b1,b2,c,i: integer; begin readln(a); for i: =1 to 4 do begin c: =a mod 10; if c mod 2 = 0 then b1+=1 else b2+=1; a: =a div 10; end; writeln('четных - ',b1,' нечетных - ',b2); end.
marinavn2008
marinavn2008
4,8(81 оценок)

12122

Объяснение:

1 - делим на 2 = 27

2 - прибавляем 1 = 28

1- делим на 2 = 14

2 - прибавляем 1 = 15

2 - прибавляем 1 = 16

Популярно: Информатика