Вычислите сумму чисел от 1 до 100 т.е для решения используем соотношения: s=s+c; c=c=1,где s-текущее значение суммы чисел; с-текущее значение числа(начальное значение s=0 и c=1)

151

321

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

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

matysja138

Информатика

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

program zadacha;

var s,c: integer;

begin

s: =0;

for c: =1 to 100 do

s: =s+c;

writeln(s);

end.

gelyacot

Информатика

4,7(18 оценок)

var s, c: integer; begin s : = 0; for c : = 1 to 100 do s : = s + c; writeln('s = ', s); readln; end.

sigaretta

Информатика

4,7(53 оценок)

Program z1; var v,s: integer; t: real; begin v: =12; writeln('известно что мальчик бегает в 3 раза больше чем ходит'); writeln('3 км/ч его ходьба, следовательно 12 км/ч его бег'); write('введите кол-во километров прбегаемых мальчиков: '); read(s); t: =s/v; writeln('время потраченое мальчиком на пробежку = ',t,' час(ов)'); end.