: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n);
: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n); i: =1; s: =0; repeat s: =s+i; i: =i+1; until i> n; writeln (‘s=’,s);
if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")
Ответ дал: Гость
var a: array [1..5] of integer; s,i: integer; begin for i : = 1 to 5 do begin writeln('a[',i,']='); read(a[i]); s: =s + a[i] end; writeln('s=',s); end.
Популярные вопросы