Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Legendary13
17.01.2022 00:49 •
Информатика
(на языке программирования)с клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?
Показать ответ
Ответ:
ГКПС
05.10.2020 20:32
Var A:integer;
S:real;
Begin
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
WriteLn('S = ',S)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
gfyyfyftd
18.09.2020 23:49
Составить алгоритм решения этой : ) требуется расчитать периметр прямоугольного треугольника с углом 30 градусов,по заданному катету лежащему против угла 30 градусов...
gizut
18.09.2020 23:49
Найдите лишнее слово носок, мозоль, георгин, помидор...
NastyaVelikaya2000
18.09.2020 23:49
Может ли быть загружен по сети интернет графический файл, содержащий черно-белое изображение с 16 градациями серого цвета, размером 100x150 точек за 2 секунды? скорость...
КулБои
06.02.2020 03:24
Написати 3 гуморески чи анекдоти про інформатику....
garkachev20031
06.02.2020 03:24
Program vagoni; var a: array[1..15] of real; b: array[1..15] of real; c: array[1..15] of real; i,m,q,j,d,n: integer; s,max_num, max_index: real; begin n: =15; m: =10;...
ЕсенжоловаЛяззат
20.04.2023 19:54
Решить , учитель бьется цветочком! составьте программу вычисления количества трехзначных чисел-палиндромов(чисел, которые читаются одинаково слева направо и справа налево)....
RIP12548
20.04.2023 19:54
Составите программу которая находит сумму квадратов чисел от 1 до 10...
kulakovakatyus
20.04.2023 19:54
Составить программу для pascalabc, которая выводит слово, введённое с клавиатуры, с буквами в обратном порядке и сохраняет результат в оперативную память...
lolSashalolo
09.02.2020 23:16
Решить 1. для записи текста использовался 64-символьный алфавит. какой объем информации в килобайтах содержат 10 страниц текста, если на каждой странице расположено 32...
оооопп
09.02.2020 23:16
Надо решить четыре . 1) дано два числа, если их сумма больше пяти, то найти корень квадратного из этой суммы, в противоположенном случаи найти квадрат суммы. 2) дано...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S:real;
Begin
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
WriteLn('S = ',S)
End.