Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
romanov1100
18.03.2022 20:52 •
Информатика
Запишите на языке паскаль программу решения : дана последовательность чисел 5,9,13, . определите число слагаемых, сумма которых равна 324
Показать ответ
Ответ:
danilkazaytsev
02.10.2020 07:04
Var
a,b,c:integer;
begin
c:=5;
b:=5;
a:=1;
repeatc:=c+4;
b:=b+c;
a:=a+1;
until b=324;
writeln('Количество слагаемых:',a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vikaiero13
20.08.2020 21:17
Составить программу которая заполняет массив а от 1 до 10 случайными целыми числами от 0 до 2...
SHAHRUKH575
13.05.2020 11:26
Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for...
temnikovay01
17.09.2021 08:37
Указать значения величин а и в после выполнения следующих операторов присваивания: а: = 5.8 в: = 7.9 в: = а а: = в , решениия на языке с++...
ilyabes1998
17.09.2021 08:37
10 варик 2 программы нужноцикла до и пока...
Оленка124683
21.02.2022 17:59
Структурыопределить 2 человека с самой высокой зарплатой определить кол-во отработанных дней...
SemMandarenova
14.01.2022 17:52
Сколько нулей в двоичной записи десятичного числа 612...
lyda777
30.05.2022 14:02
Переведите число 760 из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления....
veterokttty
08.03.2023 19:13
Uses crt; var a: integer; begin for a: =10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. из этой программы сделать программу с циклом repeat...
Помагайтыыыы
19.08.2020 21:30
Впапке общего доступа расположен файл поздравления . напишите алгоритм скачивания файла из указанной папки решить...
kreatuv41kp06t42
04.05.2020 00:43
Курмашпен коксерек арасындагы достыкпен кастык туралы не айтар единиз, очень надо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c:integer;
begin
c:=5;
b:=5;
a:=1;
repeatc:=c+4;
b:=b+c;
a:=a+1;
until b=324;
writeln('Количество слагаемых:',a);
end.