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


UNDEADrevolution
07.04.2022 01:28

Склавиатуры поочередно вводятся целые числа. вычислите сумму положительных чисел. признаком конца ввода чисел является число 0.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Kylaguzzz
Kylaguzzz
29.01.2023 08:55
Дана строка слов. определить буквы, которые встречаются наибольшее и наименьшее количество раз( c++)...
mishchenko07
mishchenko07
29.01.2023 08:55
1) заполните массив случайными числами и переставьте соседние элементы, поменяв 1-ый элемент со 2-м, 3-й – с 4-м и т.д. 2) напишите программу, которая находит максимальный и минимальный...
Nastyadavydenko
Nastyadavydenko
16.06.2022 11:58
Даны три трехмерных вектора a, b и c , заданные своими координатами, вещественное число k. найти вектор, равный ( +)+ 1− ( + ). указание: реализовать функции умножения скаляра...
dazz4
dazz4
12.04.2023 01:09
Выберите элементы форматирования электронной таблицы выравнивание удаление столба на границе добавить лист​...
RatmirOspanov123
RatmirOspanov123
08.11.2020 02:19
20 8, 5, 26 8, 5, 34 5, 8,27 5, 8, 13 яку з формул можна записати в осередок b5 для обчислення суми чисел діапазону комірок b1: b4 ? = b1: b4 = sum (b1: b4) b1 + b2 + b3 = b5 =...
s1cro
s1cro
16.07.2021 03:22
Укажите через запятую в порядке возрастания все системы счисления в которых запись числа 12 в десятичной оканчивается на 3....
Дарья290705
Дарья290705
11.03.2021 22:17
Сгенерируйте последовательность четных чисел между a (четное число) и b (a b)!в питоне...
daaaasha2018
daaaasha2018
14.05.2023 14:16
Определите значение переменной е после выполнения данного алгоритма: f: = 100 e: = 25 f: = 2*f+50 e: = f-150-e*2...
gygfyye66363
gygfyye66363
07.05.2020 12:50
Дан радиус круга. Найти площадь и длину круга. Составить программу на языке Пайтон. ​...
alenxolod3364
alenxolod3364
18.05.2021 17:07
A) write the sentences in the negative. 1) she understands the rule. 2) the flowers look fresh. 3) my grandfather played chess very well. 4) we go to the college by car 5) i usually...
Ответ:
katyasha0504
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота