Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
VaSa4547
27.07.2022 16:57 •
Информатика
Добрые люди. с клавиатуры вводятся дейстивительные числа и последовательно суммируются. когда их сумма превысит 150, найти количество введенных чисел и их сумму. через оператор for .
Показать ответ
Ответ:
diaries1
01.10.2020 11:54
Через for разве что так:
var i,k:integer; a,s:real;
begin
s:=0; k:=0;
for i:=1 to 2 do begin read(a); s:=s+a; k:=k+1; i:=1; if s>150 then break end;
write(k,' ',s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artemmavericksmesrri
03.12.2022 12:22
Рассмотрите рисунок 1 и 2 а) определите вид компьютерной графики. б) опишите преимущества и недостатки компьютерной графики Надо к каждому рисунку отдельно определить...
egyrt
15.01.2020 02:11
Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи...
1978dan
18.07.2020 05:56
Вкоробке лежат карандаши и ручки. ручек-35. сообщение о том, что из коробки достали карандаш, несёт 3 бита информации. сколько всего предметов в коробке?...
Riper165
15.03.2022 23:58
До ть,будь ласка,з завданням...
gramasha
18.06.2021 07:29
Указать НЕПРАВИЛЬНУЮ тройку из ряда: «Объект – натурная модель – информационная модель» a) человек – манекен – выкройка b) здание – пенопластовый макет – проект c)...
POULINACAT
26.06.2022 06:41
контрольная по икт 1) Сколько байт в секунду передается по линии связи, если файл размером 2 Кбайт был передан за 2 с? 2) Ученик набирает сочинение по литературе на...
пргремм6
04.09.2020 17:26
Жинағыш линзадан кескінге дейінгі қашықтық 40см,ал линзадан нәрсеге дейінгі қашықтық 10см болса, линзаның фокус аралығы неге тең?...
Aiganym684
04.09.2020 17:26
Какой вклад внес Тауке хан в стабилизацию внутреннего положения Казахского ханства? Приведите не менее трех фактов....
PolinaSlesareva
15.04.2023 08:07
2. Позначити складне речення з сурядним і підрядним зв’язком. * а) Соломія не знала, як і коли це сталося,— втома і шум комишу приспали її. б) Остап подавсь на розвідки...
Лена36793
08.06.2022 10:23
Адам гаметадағы хромосома саны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,k:integer; a,s:real;
begin
s:=0; k:=0;
for i:=1 to 2 do begin read(a); s:=s+a; k:=k+1; i:=1; if s>150 then break end;
write(k,' ',s)
end.