Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program Primer1; {„Ґ¬®бва жЁ® п Їа®Ја ¬¬ }
Uses Crt;
Var a,s: integer;
Begin
ClrScr;
Writeln('Џа®Ја ¬¬ ¤Ґ¬®бваЁагҐв а Ў®вг б ®ЇҐа в®а ¬Ё Read, Write');
Writeln('Ќ ¦¬ЁвҐ ENTER');
Readln;
Write('‚ўҐ¤ЁвҐ зЁб«®: ');
Readln(a);
Writeln('‚л ўўҐ«Ё зЁб«® a, а ў®Ґ ', a);
Writeln;
repeat
s:=s+1;
until s=10;
write('s=',s);
End.
Uses Crt;
Var a,s: integer;
Begin
ClrScr;
Writeln('Џа®Ја ¬¬ ¤Ґ¬®бваЁагҐв а Ў®вг б ®ЇҐа в®а ¬Ё Read, Write');
Writeln('Ќ ¦¬ЁвҐ ENTER');
Readln;
Write('‚ўҐ¤ЁвҐ зЁб«®: ');
Readln(a);
Writeln('‚л ўўҐ«Ё зЁб«® a, а ў®Ґ ', a);
Writeln;
repeat
s:=s+1;
until s=10;
write('s=',s);
End.
Соседние файлы в папке 01