Помогите задание по Delphi 7

7 комментария:
Тебе с интерфейсом или консольное?
С интерфейсом если не трудно)
тогда вывод "Молодец" будет в текстовую область
ничего)
Я все же думаю, там консольное приложение
Возможно
Напиши тогда через консоль







Ответы

Не могу прикрепить файл, вот код
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,i:integer;
begin
i:=0;
Writeln('Parol');
repeat
read (n);
i:=i+1;
until (i=5) or (n=111);
if i=5 then
exit
else if n=111 then begin
Write('Molodec');
end;
Readln;
Readln;
end.
4 комментария:
спасибо)!
а можешь еще почочь
помочь
https://znanija.com/task/23778795




Похожие вопросы
Информатика
Помогите пожалуйста!...
Информатика
Даны два различных числа a и b...
Информатика
Помогите задание по Delphi 7...