Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Дашакот2345681
31.07.2021 21:12 •
Информатика
Вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for ) нужно
Показать ответ
Ответ:
nina236
02.07.2020 12:22
VAR
sum, i: LongInt;
a: Array [1..4] of LongInt;
BEGIN
Writeln('Введите четыре числа:');
for i := 1 to 4 do Read(a[i]);
sum := 0;
{Сюда вставишь основной код (который ниже)}
Write(sum);
END.
// Цикл FOR
for i := 1 to 4 do
sum := sum + a[i];
// Цикл с предусловием
i := 1;
while (i < 5) do begin
sum := sum + a[i];
i := i + 1;
end;
// Цикл с постусловием
i := 1;
repeat
sum := sum + a[i];
i := i + 1;
until (i > 4);
0,0
(0 оценок)
Популярные вопросы: Информатика
beloborodov05p06igp
10.03.2020 11:55
Как называется модель сложного объекта, предназначенная для выбора оптимального решения методом проб и ошибок (в ответе введите прилагательное)?...
cksenia112
18.03.2022 21:05
Ребят составить программу: Составить программу для расчета двух значений z1 и z2, результаты которых должны совпадать [32]. Ввод исходных данных можно задавать при декларации или...
raufsuleymanov
27.02.2022 19:52
Подумай и выполни! Напиши назначения команд.КомандаНазначениеСменить костюм наКостюм2следующий костюмсменить фон на фон 1KOCTIOM #Подумай и напиши!...
innesa260778
17.10.2021 08:50
. Опишите работу школьной библиотеки как информационной системы. ...
stepanyakimov2
26.10.2021 15:53
Скільки часу триватиме прослуховування аудіофайла обсягом 1 Кбайт із бітрейтом 124 Кбіт/с (бітрейт (В) - кількість аудіоданих, переданих каналом зв язку за одиницю часу (біт/с),...
Heh6
02.09.2022 14:25
Как меняется уклад жизни человека современного общества?...
gennadiiyy
10.04.2021 08:40
Основные положения концепции электронного государства...
superstudio57
19.01.2022 08:14
Нужна блок-схема Поменять местами значения целых переменных A, B, C таким образом, чтобы оказалось A ≥ B ≥ C...
yakovlev59
16.05.2023 23:13
1. «Кездесу қыркүйек айына тағайындалды» деген хабарламада қанша көлемдегі ақпарат бар?Бұл көлемді битпен және байтпен көрсетіңдер.3. Информатика оқулығының бір бетінің және бүтіндейоқулықтың...
maksi0071
12.02.2022 21:48
Задание 2 Это надо написать на языке фортран Тема: Ряды (циклы, итерации). Операторы DO используются для организации циклических расчетов. Цикл - это последовательность операторов,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum, i: LongInt;
a: Array [1..4] of LongInt;
BEGIN
Writeln('Введите четыре числа:');
for i := 1 to 4 do Read(a[i]);
sum := 0;
{Сюда вставишь основной код (который ниже)}
Write(sum);
END.
// Цикл FOR
for i := 1 to 4 do
sum := sum + a[i];
// Цикл с предусловием
i := 1;
while (i < 5) do begin
sum := sum + a[i];
i := i + 1;
end;
// Цикл с постусловием
i := 1;
repeat
sum := sum + a[i];
i := i + 1;
until (i > 4);