Umri
4 год назад
Пожалуйста посчитайте задание по Delphi 7
ОТВЕТЫ
Nedelcho
Oct 24, 2020
Не могу прикрепить файл, вот код
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.
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
Смежные вопросы:
