Головна | Реєстрація | Вхід | RSS | П`ятниця, 04.26.2024, 9:43 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Парольprogram parol; var y,x,n,i: integer; begin y:=7; for i:=1 to 5 do begin writeln ('vvedit parol'); readln (x); if x=y then begin writeln ('pravelno'); exit; end else writeln ('nevirno'); end; i:=i+1; writeln ('sprob bilshe nemae'); readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |