Yo`nalishlar
Hozirda online

Statistika

Masalalar soni: 909

Foydalanuvchilar soni: 8825

Jo'natishlar soni: 714634

Muhokama yozuvlari: 4541

Yangiliklar soni: 98

Yangiliklar izohlari: 1179


So'ngi izohlar

437. TDT7
Vaqt limiti: 1 sekund
Xotira limiti: 64 MB

Pascal tilida procedure sozi bor yoki yoqligini aniqlovchi dastur tuzing;

Kiruvchi malumot: Sizga dastur kodini beradi;

Chiquvchi malumot: agar togri bolsa yes aks holda no

Kiruvchi malumot

Chiquvchi malumot

var

a:integer;

procedure chiqar(a:integer)

begin

write(a);

end;

begin

read(a);

chiqar(a);

end.

yes

var

a:integer;

begin

read(a);

write(a);

end;

 

no

 

Mening urinishlarim(0) Muhokama (0) Jo'natish Eng yaxshi yechimlar Barcha muvaffaqiyatli urinishlar(219) Barcha urinishlar(268)