На ! 1. написать программу которая будет выводить сумму четных цифр(пока не введете 0). 2.программа выводит количество четных цифр. 3.программу которая будет выводить произведение введенных чисел пока не будет введен 0.

202

272

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

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

roseq78

Информатика

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

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin writeln(readseqintegerwhile(t-> t< > 0).where(t-> t.iseven).sum) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 2708 begin writeln(readseqintegerwhile(t-> t< > 0).where(t-> t.iseven).count) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 5 begin writeln(readseqintegerwhile(t-> t< > 0).aggregate(biginteger(,y)-> x*y)) end. пример -65 973 571 -101 426 326 207 -85 850 551 713 340 766 0 -775118121479521866390147967800000

aliina000

Информатика

4,4(43 оценок)

Var s: string; a,i: integer; begin a: =0; writeln('введи слово'); readln(s); for i: = 1 to length(s) do if uppercase(s[i])in['п','т','к','т','ш','с','х','ц','ч','щ'] then a: =1; if a=1 then writeln('есть глухие согласные') else write('глухих согласных нет') end.