Я рил дубок по иктКароч,я туплю здесь полчаса,и не понимаю

Я рил дубок по икт
Кароч,я туплю тут полчаса,и не разумею ничего.
Хелп,найдите ошибки и напишите как верно.

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

Задать свой вопрос
Андрей Кобря
Условие задачи напишите
Марина Байманова
найдите оплошности и напишите как верно
Данил Гринишин
Так как нам разыскивать ошибку, если не знаем, что программка должна делать?
Виктор Ситарский
Либо отыскать ошибку вам и было задано?
Нелли Юзва
Да,отыскать оплошности.Типо точку с запятой не поставила либо иное слово обязано быть.
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

Как-то так. Сама проходила тот кошмар, так что разумею вас.
Анатолий Бесарашвили
Спасибо,но вновь проблема.Пишет что у end ожилася символ ; но когда пишу опять ошибка.
Aleksandr Dujunov
Но все одинаково спасибо!))))
Милана
Так ты точку поставь после end
Анна Чечева
Program1.pas(12) : Встречено '.', а ожидалось ';'
Порабова Алёна
Господи,нужно было просто ещё раз энд поставить.
У тебя s;=0; следует s:=0;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт