Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

339

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-02 12:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200876

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Анастасия Тотышева (Посетитель)
Дата: 20.05.2021, 03:33 Консультация закрыта
Поступило ответов: 1

[code][url=https://rfpro.ru/d/12974.pas]скачать файл project3.pas [1.7 кб]Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: я написала программу в Lazarus в консольном приложении и в 85 строчке мне выдают, что у меня ошибки, можете показать мне как их исправить?

Ответ # 281135 от puporev
Здравствуйте Анастасия!
Вы зря открыли в окне Новый проект Консольное приложение, Вам это не нужно. Откройте Простая программа, будет простое консольное приложение.
Напишите такой код
Код [Pascal]
program Project1;
var n,a,i,kolchet,kolnechet:integer;
begin
repeat
write('Количество чисел для ввода n>0 n=');
readln(n);
until n>0;
KolChet:=0;
KolNechet:=0;
for i:=1 to n do
 begin
  write('Введите целое число a=');
  readln(a);
  if a mod 2=0 then kolchet:=kolchet+1 else kolnechet:=kolnechet+1;
 End;
writeln ('Количество четных=',kolchet,' Количество нечетных=',kolnechet);
Readln;
end.           

Кликните правой кнопкой мыши в окне ввода, в открывшемся окне выберите Параметры файла->Кодировка->CP866.
Текст в программе будет на руском языке.
Приложу архив проекта.

Последнее редактирование 20.05.2021, 04:57 puporev (Профессор)

-----
Прикрепленные файлы:


Программа.zip
скачать (1.7 кб)

puporev

Профессор
20.05.2021, 04:46
Мини-форум консультации # 200876

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0