Var i,b,s:integer;
begin
write('b = '); readln(b);
s:=0;
for i:=-10 to b do s:=s+i;
writeln('s = ',s);
end.
Пример:
b = 5
s = -40
Ты о чем? я не понимаю суть твоего вопроса, напиши в коментарии к ответу
X = 49. Программа обработает его и выдаст "94". Сумма цифр 4 + 9 = 9 + 4 = 13.
Какой охранник нужен чтобы охранять систему компьютера? Антивирус.
Program fff;
const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.