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.
mr1cherry
3
21.05.2019 08:00
1
Другие вопросы по теме Информатика
Alisacollins1
15.12.2020 16:39
polina030502
15.12.2020 16:40
Glados1
15.12.2020 16:41
Eo4G
16.03.2021 15:42
artemovaelena
16.03.2021 15:43
averinael2013
29.11.2020 14:05
Umnikin
29.11.2020 14:05
valnov24200105oxnmv8
27.07.2019 03:40
steelersumyp06wkp
13.06.2019 19:20
Популярные вопросы
- построить аккордувую цепочку в ре миноре, Т 35, D 6,T 35,S 6,...
2 - Заполните таблицу в тетради....
1 - Приметы про солнце,луну и огня нужно....
1 - Оприделити переходность или не переходность в предложений. Красным...
3 - Площадь прямоугольника 18см2,длина 9см.найди ширину и периметр...
2 - План анализа лирического произведения І. «Выходные данные». Автор,...
1 - решите (12,4+x)×3,6=388,8...
1 - Что вы подразумеваете под «межпоколенческими отношениями»? Распишите...
3 - Упростите выражениеи (3а-а^2)^2-а^2 (а-2)(а+2)+2а(7+3а^2)...
1 - Диалог двух друзей на тему встречия после войны...
2
program prim1;
uses CRT;
var
i: integer;
a: string;
begin
read(a);
i:=1;
while i<10 do
begin
i:=i+1;
writeln(a);
end;
end.
Или
program prim1;
uses CRT;
var
i: integer;
begin
i:=1;
while i<10 do
begin
i:=i+1;
writeln('ПРИВЕТ');
end;
end.