Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ростислав111л
01.12.2022 05:53 •
Информатика
Вводятся n целых чисел. найти сумму всех чисел.
Показать ответ
Ответ:
zoltomon
05.10.2020 16:36
Program n1;
var n,sum,a,i: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
sum:=sum+a;
end;
writeln(sum);
end.
0,0
(0 оценок)
Ответ:
emeljanenkoira
05.10.2020 16:36
Var
A,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Read(A);
S:=S+A;
End;
WriteLn('Сумма чисел равна ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Danil545333
23.03.2023 08:06
Кумир, переместите робота из точки Н в точку К с использованием цикла со счётчиком Буду благодарна ...
IceBand252
08.04.2021 03:45
УМОЛЯЮ ЗАДАНИЕ ПРО РОБОТА (надо вставить только 2 слова) умоляю...
Янрей
03.05.2020 09:11
Решить на паскале я совсем не разбираюсь в ! 1)дана таблица со значениями среднемесячных температур в течение года. составить программу на паскале, в которой вычисляются четыре величины:...
patya6346
08.07.2020 02:29
Проверьте правильность следующего умозаключения с логических операций. будет пасмурная погода с дождем. если будет дождь, то будет и снег. если будет пасмурная погода с ветром, то...
дстмсдрлпоа
02.06.2021 23:22
4. Используется только для временного хранения данных и программного обеспеченияЖесткий дискООперативнаяСетевой адаптерпамять...
полина2133
10.06.2020 00:11
Можно ли произведение е.велтистова (приключения электроника)считать фантастическим ? запиши свой ответ...
МияV
10.06.2020 00:11
Без деления и без икса решить ,в вазе на 5 бананов больше,чем мандаринов.сколько в вазе мандаринов,если в ней всего 17 фруктов.вопрос из учебника второго класса....
NastyaPaz
10.06.2020 00:11
1. i have french magazines at home. a) any b) some c) no any 2. we haven’t got time. a) any b) no c) some 3. did you borrow books from the library? a) no b) some c) any 4.there is...
khadija2004
10.06.2020 00:11
Маленький рост, длинный хвост, серенькая шубка, остренькая шубка...
St1mx15
18.08.2022 01:33
4карандаша и 3 тетради стоят 54 р., а 2 карандаша и 2 тетради - 34 р. сколько стоят 6 таких карандашей и 5 тетрадей?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,sum,a,i: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
sum:=sum+a;
end;
writeln(sum);
end.
A,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Read(A);
S:=S+A;
End;
WriteLn('Сумма чисел равна ',S);
End.