Информатика Архивный вопрос

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

Помогите задание по 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