?>
Program prim1; uses crt; var a, i: integer; begin read(a); i: =1; while i< 10 do begin i: =i+1; write(a); end; end. это программа для того чтобы вывести 10 одинаковых чисел на экран. переделать так, чтобы можно было вывести слово 10 раз. программа pascalabc.
Ответы
program prim1; uses crt; vari: integer; a: string; beginread(a); i: =1; while i< 10 dobegini: =i+1; writeln(a); end; end.
или
program prim1; uses crt; vari: integer; begini: =1; while i< 10 dobegini: =i+1; writeln(''); end; end.