Помощ с програмиране !

[isaaam]

Правене на програма на Паскал за програма, която брои зададени числа и след 5тото число спира !

[saruhi]

Възможно най-простият начин би трябвало да сработи:

var
Number: Integer;

begin

while Number <= 5 do
Writeln('Number ', Number);
end.


Или с :

program Project1;

{$APPTYPE CONSOLE}

var
Number: Integer;

begin
Number := 0;

while Number <= 5 do
begin
Writeln('Number ', Number);
Number := Number + 1;
end;

Write(Chr(10), 'Press any key to continue...');
Readln;
end.

[anonymous908491]

В 6 клас написах на бейсик софт за бинго, това е същото, но съм кавалер и давам път на дамите.

[saruhi]

В 6 клас написах на бейсик софт за бинго, това е същото, но съм кавалер и давам път на дамите.

Иеииии :D