Я рил дубок по икт

Кароч, я туплю тут полчаса, и не понимаю ничего.

Хелп, найдите ошибки и напишите как правильно.

program d;

var s, i, N, x; integer;

begin

s; =0;

a:=8;

read (N) ;

for i=1 to N do begin

s:=s+a/2;

writeln ('s=', s) ;

end

Question

Информатика

Ануша

12 марта, 23:20

Я рил дубок по икт

Кароч, я туплю тут полчаса, и не понимаю ничего.

Хелп, найдите ошибки и напишите как правильно.

program d;

var s, i, N, x; integer;

begin

s; =0;

a:=8;

read (N) ;

for i=1 to N do begin

s:=s+a/2;

writeln ('s=', s) ;

end

+5

Ответы (2)

Знаете ответ на вопрос?

Лидуха · Answer 1

Лидуха 12 марта, 23:49

0

У тебя s; =0; следует s:=0;

Маримьянка · Answer 2

program d;

var s, i, a, N:integer;

begin

s:=0;

a:=8;

read (N) ;

for i:=1 to N do begin

s:=s+a mod 2;

writeln ('s=', s) ;

end

Как-то так. Сама проходила тот ужас, так что понимаю вас.