Напишите программу, выполняющую сумму 10 вводимых с клавиатуры целых чисел.
Easy11111
1
15.02.2021 10:37
3
Другие вопросы по теме Информатика
VlfdimirSychev
10.09.2019 20:50
Collan
26.07.2019 05:50
алия256
06.09.2019 10:50
dianka27091987
06.09.2019 10:50
Alisarive
27.02.2020 18:54
fedosovsemen
27.02.2020 18:55
Vadim12045683777779
27.02.2020 18:55
запахи
21.09.2019 08:50
викториясиб
21.09.2019 08:50
Мурик123
21.09.2019 08:50
Популярные вопросы
- Ці згодны вы са сцвярджэннем, што першабытным людзям было цяжка выжыць...
1 - Европейские путешественники XVIII—XX веков описали образ жизни племен,...
3 - Еўрапейскія падарожнікі XVIII—XX стагоддзяў апісалі лад жыцця плямён,...
2 - Раскажыце аб старажытнейшых здабывання ежы...
1 - Расскажите о древнейших добывания пищи...
3 - Якія істоты лічацца самымі далёкімі продкамі сучаснага чалавека? У чым...
3 - Какие существа считаются самыми далекими предками современного человека?...
1 - Начертите ленту времени, отложите на ней 2 тысячелетия н. э. и 10 тысячелетий...
3 - Начарціце стужку часу, адлажыце на ёй 2 тысячагоддзі н. э. і 10 тысячагоддзяў...
1 - Объясните, для чего нужен счет времени...
1
С массивом:
Sum:=0;
for i:=1 to 10 do
Begin
Write('Введите ',i,'-е число: ); Readln(X[i]);
Sum:=Sum+X[i];
end;
Без массивов:
Sum:=0;
for i:=1 to 10 do
Begin
Write('Введите ',i,'-е число: ); Readln(X);
Sum:=Sum+X;
end;
Объяснение: