Составьте программу вычисления произведения s=12+34+56++101102 (в паскале)

278

446

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

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

aizhan0989

Информатика

4,6(74 оценок)

Var i,a1,a2: integer; sum: longint; begin a1: =1; a2: =2; sum: =0; while (a1< 102) or (a2< 102) do begin sum: =sum+(a1*a2); a1: =a2+1; a2: =a1+1; end; writeln(sum); end.

Нига2ц8

Информатика

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

Var a,b : integer; begin b : = 0; readln(a); if a mod 2 = 0 then writeln('число четное'); else writeln ('число нечетное'); b : = a mod 10; if b = 7 then writeln('число заканчивается на 7'); else writeln('число не заканчивается на 7'); if b mod 2 = 0 then writeln('число оканчивается четным числом'); else writeln('число не оканчивается черным числом'); end.