Rozwiązane

Siemka mam do napisania program w Turbo Pascal w którym po wpisaniu obojetnie jakiej liczby pokaże się na ekranie:

******
*****
****
***
**
*

PILNIE



Odpowiedź :

Vegixa
Program liczba;
uses CRT;
var a: integer;
begin
Clrscr;
Write('Podaj liczbe: ');
Readln(a);
Writeln;
Writeln('******');
Writeln('*****');
Writeln('****');
Writeln('***');
Writeln('**');
Writeln('*');
Readln;
end.
Program 1;
var a:integer;
begin
writeln('podaj dowolną liczbę);
readln(a);
writeln("******");
writeln("*****");
writeln("****");
writeln("***");
writeln("**");
writeln("*");
readln;
end.

Inne Pytanie