Question

PASCAL.как сделать чтобы было разность 1000-7 до отрицательного числа -1 и в конце надпись была я гуль и еще было всё в CMD​

Answer 1

uses crt;

var

i:integer;

begin

i:=1000;

while i>0 do

begin

writeln(i,' - 7 = ', i-7 );

i-=7;

end;

writeln('я гуль');

end.

Answer 2

program PascalProgram;

uses
SysUtils, Windows;

var
result: Integer;

begin
result := 1000 - 7;

if result > -1 then
WriteLn('Результат: ', result)
else
WriteLn('Отрицательное число: -1');

WriteLn('Я гуль');

Sleep(5000);
end.

{ВНИМАНИЕ: Эта программа может вызвать ложноположительный результат в некоторых системах против вирусов. Пожалуйста, использовать на свой страх и риск.}