👤
a fost răspuns

Salut. Ajutați-mă cu o problemă în pascal cu subprograme, vaa rog mult

Salut Ajutațimă Cu O Problemă În Pascal Cu Subprograme Vaa Rog Mult class=

Răspuns :

CUNEVNEWEZ
Program xx;

var s:string;i,g:integer;
begin
readln(s);
for i:=0 to 5 do
begin
writeln;
for g:=0 to i do
write(s);
end;
end.


Acesta este pentru (a)
Deja modifici for-urile pentru alte exemple.

pentru b:


Program xx;

var s:string;i,g:integer;
begin
readln(s);
for i:=5 downto 0 do
begin
writeln;
for g:=0 to i do
write(s);end;end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari