В ПАСКАЛЕ! №1 С клавиатуры вводятся 10 натуральных двузначных чисел

Question

В ПАСКАЛЕ! №1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить

Answer 1

58

praim

21 февраля 2023

Var N,I,k,j,b,l: integer; Begin For I: =1 to 10 do begin Read (n); If n mod 4=0 then l: =l+1; If n mod 2<>0 then begin k: =k+n; j: =j+1; end; If (n div 10) / (n mod 10)=2 then b: =1; End; Writeln ('1-',l); writeln ('2-',k/j); if b=1 then writeln ('3-да') else writeln ('3-нет'); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: