1)дано трехзначное число.составьте программу которая определяет а)является ли сумма его цифр нечетным числом 2)составьте программу в которой осуществляется вот целых чисел до тех пор пока не будет введен 0 и подсчет а)количество чисел оканчивающихся на 6 и кратных 4 б)сумма чисел оканчивающихся на 6 и кратных 4 на языке паскаль

245

405

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

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

ruslanabbyasov2004

Информатика

4,5(32 оценок)

1) program hhh54; var x: longint; begin read (x); if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 < > 0 then write ('является') else write ('не является'); end. 2) а) progran hhh54; var i,k,x: longint; begin k: =0; read (x); while x < > 0 do begin if (x mod 10 = 6) and (x mod 4 = 0); then k: =k+1; read (x); end; write (k); end. б) progran hhh54; var i,s,x: longint; begin s: =0; read (x); while x < > 0 do begin if (x mod 10 = 6) and (x mod 4 = 0); then s: =s+x; read (x); end; write (s); end.