Я рил дубок по икт Кароч,я туплю тут полчаса,и не понимаю ничего. Хелп,найдите ошибки и напишите как правильно. 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
Я рил дубок по икт
Кароч,я туплю тут полчаса,и не понимаю ничего.
Хелп,найдите ошибки и напишите как правильно.
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
Гость
Ответ(ы) на вопрос:
ГостьУ тебя s;=0; следует s:=0;
Гость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
Как-то так. Сама проходила тот ужас, так что понимаю вас.
Не нашли ответ?
Похожие вопросы