Дана программа которая ищет сумму однозначных чисел, с командой while исправьте её на программу с командой for program dj; var x,y: integer; begin y: =0; x: =1; while x< 10 do begin y: =x+y; x: =x+1; write (y); end.
Тогжан11111111
2
12.09.2019 03:50
0
Другие вопросы по теме Информатика
Smetanka82
20.12.2020 12:59
Кличяня
20.12.2020 12:58
lili2003love12
28.09.2019 17:00
VladiusFirst
28.09.2019 17:00
daramir02
04.03.2020 23:29
murka280705
04.03.2020 23:29
ПоляБондарь
04.03.2020 23:17
Koley112
04.03.2020 23:12
SKoteickaЗ
04.03.2020 23:11
Популярные вопросы
- Последовательнось прилета птиц в беларусь (соловей, кукушка,скворец,грач)...
3 - Теплоход проходит расстояние между двумя пристанями по течению реки за 3 ч.,...
2 - В каком примере слово употреблено в переносном значении? ребенок плачет золотые...
1 - На окружность по разные стороны от диаметра AB взяты точки M и N. Известно...
2 - написать конспект по римской империи 3-5 веков....
1 - быстрее мне у меня истерика...
3 - Записать полностью решение уравнения (2х – 5)²(х – 5) = (2х – 5)(х – 5)² и...
3 - Экскаватор поднял грунт объемом 0,25 м3 и плотностью 1500 кг/м3 на высоту 5...
1 - Синус 20 градусов. Желательно в дробах...
1 - Сума числа 425 та частки чисел 160 і 10...
2
Var x,y:integer;
begin
y:=0;
for x:=1 to 9 do
begin
y:=x+y;
write (y);
end.