Задание:
В ПАСКАЛЕ! №1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
Решение:
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.
Знаете другой ответ?