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

Обсуждение

давно
Профессор
401888
1232
20.05.2021, 04:46
общий
20.05.2021, 04:57
это ответ
Здравствуйте Анастасия!
Вы зря открыли в окне Новый проект Консольное приложение, Вам это не нужно. Откройте Простая программа, будет простое консольное приложение.
Напишите такой код
[code lang=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. [/code]
Кликните правой кнопкой мыши в окне ввода, в открывшемся окне выберите Параметры файла->Кодировка->CP866.
Текст в программе будет на руском языке.
Приложу архив проекта.
Прикрепленные файлы:
Программа.zip
Форма ответа