logo
Войти Регистрация Спроси ai-bota


basik2017
31.08.2022 00:56

(на языке программирования)с клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Нюся5012
Нюся5012
20.01.2020 20:22
1)ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. 2) ввести натуральное число и определить, верно ли, что в его...
MoriYuka
MoriYuka
20.01.2020 20:22
Напишите, , программу, которая решила бы : ввести номер месяца и вывести количество дней в нём, а также число ошибок при вводе . (оператор выбора case)...
mkudryavceva10
mkudryavceva10
30.01.2020 14:54
Условие: Требуется написать программу которая в исходном трехзначном числе x меняют местами цифры сотен и десятков, единицы оставляет в исходном состоянии выводит полученное...
Печенькавасилиса
Написать класс линейка, который содержит следующие поля: количество сантиметров, количество миллиметр. Обеспечить доступ к полям через свойства. Создать в методе Main массив...
AngelDarkness123
AngelDarkness123
29.06.2020 03:27
Можете дать к ответу еще и решение заранее...
devyticlassnicadf17
devyticlassnicadf17
29.01.2021 21:26
Визначіть t, що діє на тіло з масою m яке рухається з прискоренням a​...
Kirakler2000
Kirakler2000
10.05.2023 06:29
кто есть отдам все баалллауу​...
Summerween
Summerween
07.06.2021 09:17
Intive? la in the pocketYou must drinkWe must not catThere isI don t havebread on the platewas in the glass. Даю 100%​...
AlinaAlinochka2008
AlinaAlinochka2008
02.06.2020 10:18
Найдите cos alpha, если sin alpha =корень 3/2 Найдите sin beta и tg B если cos beta=корень 2/2 Запишите подробное решение и ответ....
nastyakholod92
nastyakholod92
28.02.2022 07:22
Ученикам 7 класса было задано решить, как можно больше примеров из тестовых заданий по алгебре. Количество примеров, решенных учениками, приведены ниже 11; 20; 15; 15;14; 12;14;...
Ответ:
Roth999
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота