Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
maxtrimfxus
13.04.2022 19:42 •
Информатика
Написать программу на паскале: используя цикл for (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.
Показать ответ
Ответ:
12Куки35
01.07.2020 20:22
Program chik;
var i:integer;
s,a:real;
begin
s:=0;
for i:=1 to 7 do
begin
read(a);
s:=s+a;
end;
writeln(s);
end.
0,0
(0 оценок)
Ответ:
qnorri
01.07.2020 20:22
Program zadacha;
var
a:array[1..7] of integer;
i,n:1..7;
s:integer;
begin
for i:=1 to 7 do begin
writeln('введите любые',i,'элементы');
readln(a[i]);
end;
for i:=1 to 7 do
s:=s+a[i];
writeln('сумма всех чисел равна = ', s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ksapko
01.10.2020 08:47
Информационный объём одного сообщения составляет 1 кбайт, а другого – 256 бит. сколько байт информации содержат эти два сообщения вместе? в ответе укажите одно число....
404ada505
28.10.2020 05:04
Нужно 2 простых кода на С++...
zoziev2014
01.03.2020 05:31
Упражнение 15. Применение неразлинованной таблицы для размещения текста в документах. Создание бланка. В верхней части страницы вставьте таблицу, состоящую из трех столбцов...
lyudmila198604p06n4e
22.03.2023 14:50
Придумайте по 2 истинных и 2 ложных составных условия для заданных переменных a=9, b=-17, c=16...
afia388
16.07.2020 06:50
Сколько входных параметров имеет подпрограмма, которая взаимодействует с основной лишь через глобальные параметры?...
ЛераЛи123
09.01.2021 09:33
К отделу Охрофитовые относятся бурые, золотистые, жёлто-зелёные и многие другие водоросли. Разные оттенки цвета их таллома в основном обусловлены отличиями в наборе хлорофиллов...
slunyavchik
08.04.2021 00:26
Тело массой 400г движется со скоростью 18 км/час. Определить импульс тела....
looolll2k17
03.08.2022 15:33
По данным вида и наглядному изображению начертите 3 вид детали 7 класс черчение...
everlast112
13.07.2021 12:03
Деформация в технике изгиб, кручение,Срез, сжатие, сдвиг...
deaddynasty3
13.07.2021 12:03
- Як відбувалось запровадження НЕПу в Україні і які були його наслідки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
s,a:real;
begin
s:=0;
for i:=1 to 7 do
begin
read(a);
s:=s+a;
end;
writeln(s);
end.
var
a:array[1..7] of integer;
i,n:1..7;
s:integer;
begin
for i:=1 to 7 do begin
writeln('введите любые',i,'элементы');
readln(a[i]);
end;
for i:=1 to 7 do
s:=s+a[i];
writeln('сумма всех чисел равна = ', s);
readln;
end.