Предмет: Информатика,
автор: yanaааааааааааааа
Я рил дубок по икт
Кароч,я туплю тут полчаса,и не понимаю ничего.
Хелп,найдите ошибки и напишите как правильно.
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
yanaааааааааааааа:
найдите ошибки и напишите как правильно
Да,найти ошибки.Типо точку с запятой не поставила или другое слово должно быть.
Ответы
Автор ответа:
1
У тебя s;=0; следует s:=0;
Автор ответа:
1
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
Как-то так. Сама проходила тот ужас, так что понимаю вас.
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
Как-то так. Сама проходила тот ужас, так что понимаю вас.
Спасибо,но опять неполадка.Пишет что у end ожилася знак ; но когда пишу опять ошибка.
Но все равно спасибо!))))
Program1.pas(12) : Встречено '.', а ожидалось ';'
Господи,нужно было просто ещё раз энд поставить.
Интересные вопросы
Предмет: Русский язык,
автор: пенит
Предмет: Русский язык,
автор: CATWOW134124
Предмет: Русский язык,
автор: tykuozlli2
Предмет: Алгебра,
автор: 1Nyashka1
Предмет: ОБЖ,
автор: VIKtoriyaw