1)написать программу, которая определяет четной или нечетной является сумма чисел вводимого трехзначного числа.(учитель подсказал, что решается через if xmod=0) решите так, чтобы программа была решена не абы-как, а написана правильно и верно, чтобы программа паскаль читала ее на уроке.2)написать программу вычисления факториала числа. (типа 5! =12345) заранее .

230

278

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

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

Лера089

Информатика

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

№1var chislo, sum: integer; begin repeat writeln('введите трехзначное число: '); readln(chislo); until chislo in [100..999]; while chislo > 0 do begin sum : = sum + chislo mod 10; chislo : = chislo div 10; end; if sum mod 2 = 0 then write('число четное') else write('число нечетное'); readln; end. №2var factorial: longint; chislo, i: byte; begin chislo : = 5; factorial : = 1; for i : = 2 to chislo do factorial : = factorial * i; writeln('5! = ', factorial); end.