Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
13мама
15.07.2021 19:18 •
Информатика
Склавиатуры поочередно вводятся целые числа. вычислите сумму положительных чисел. признаком конца ввода чисел является число 0.
Показать ответ
Ответ:
brll1bellrf43
05.10.2020 16:02
Var
A:integer;
S:real;
Begin
S:=0;
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
Write('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dhonsina
09.03.2021 12:26
Аx^2+вx+с=0 написать программу нахождения действительных корней этого уравнения на pascal...
angryhanry
11.04.2023 20:39
1. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a 5 then a : = 5; 2. определите значение переменной «a» после выполнения фрагмента...
Dimoooon12321
22.01.2022 06:56
Найди если изначально: =4,=10,=5,=20. ответ: А= B= C= D=...
ллл107
19.01.2022 02:30
Напишите программу, которая вычисляет значение следующего выражения: 6a2+15ab-13b2...
JlU40K
06.07.2020 11:17
информатичка мокрого места не оставит.(...
Камранбек
08.08.2022 02:10
сделать индивидуальные задания...
aleksandraluka
11.01.2023 11:44
Составить блок-схему вычисления суммы синусов натуральных чисел от N до M....
rmnikkp00szv
06.12.2022 17:35
Переведите число 142 из десятичной системы счисления в двоичную систему счисления. распишите все свои действия...
musya22
06.12.2022 17:35
Переведите число 140 из десятичной системы счисления в двоичную систему счисления. распишите все свои действия...
Brilliana1999
06.12.2022 17:35
Продолжите: школа-обучение= а)доктор б)ученик в)больной г)лечение бежать-стоять= а)ползать б)молчать в)плакать г)шуметь выберите нужное понятие к !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
S:real;
Begin
S:=0;
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
Write('S = ',S);
End.