logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
666642
666642
25.01.2020 15:22 •  Информатика

Составить программу суммирования натуральных чисел пока их сумма не превысит величину h. вывести на экран последнее слагаемое и сумму

Показать ответ
Ответ:
padafet2504
padafet2504
24.06.2020 21:44
Readln(n,h);
for i:=1 to n do begin
s:=s+i;
if s>h then
break;
end;
writeln(i,s);
0,0(0 оценок)
Ответ:
Эляна6
Эляна6
24.06.2020 21:44
Uses crt;
var n,h,i,sum:integer;
begin
read(n,h);
while sum<=h do
begin
sum+=i;
i+=1;
end;
writeln(i-1,' ',sum-i);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
raxievali
raxievali
27.12.2020 06:15
Назовите наибольшее двузначное число для следующих систем счисления А) двоичная ; Б) восмеричная​...
меси5
меси5
18.04.2023 08:32
В графическом редакторе OpenOffice выполнить рисунки ЧАСА ОСТАЛОСЬ​...
evelinkazelenyak
evelinkazelenyak
21.09.2022 01:00
Выразите десятичным числом значение суммы двоичных чисел : 1 0110+ 10 0001 = ​...
санду7
санду7
06.07.2022 13:08
6. Посмотрите на таблицу A B C цена Количество СТОИМ 35 10 50 1 1 товар 2 тетрадь 3 альбом 4 ручка 5 карандаш 6 линейка 7 итого 25 3 15 2 30 2 8 Выберите формулу, которая введена...
patik20001
patik20001
01.07.2020 11:57
Большое сообщение на тему Файл, понятие файла если будут 50...
сульвестр
сульвестр
29.06.2020 13:44
Информатика Напишите программу вычисления. Используйте подпрограмму....
JimmyN
JimmyN
01.09.2020 11:15
Руслан закодировал своё имя по следующему алгоритму: сначала он выписал номер букв алфавита (а-1,б- в своем имени друг за другом пробелов и знаков препинания а затем переписал...
Камишок7
Камишок7
01.09.2020 11:15
Какое по типу выражения вычисляется в условии оператора іf...
abobov1234
abobov1234
01.09.2020 11:15
Даны два числа.если квадратный корень из второго числа меньше первого числа,то увеличить второе число в пять раз.иначе заменить его нулями....
натали577
натали577
01.09.2020 11:15
Аскар закодировал своё имя по следующему алгоритму : сначала он выписал номера букв алфавита （а-1,б-） в своём имени друг за другом без пробелов и знаков препинания ,а затем...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота