tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дана последовательность
Дана последовательность чисел содержится 1-но отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа решите
Amina1225
2 02.06.2019 10:20
1
Ответы
АсяБру
03.07.2020 07:26
Var a,s:integer;
begin
a:=0;
while a>=0 do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
An0441
28.05.2020 21:34
Нужно решить контрольную по информатике...
EzVikaEz
29.05.2020 21:34
80 б с информатикой, тема Линейный алгоритм - решение задач задание само показано на картинке, кто разберется б с информатикой, тема Линейный алгоритм - решение...
SSEMAA
28.05.2020 21:33
ответьте Списки всех типов можно создать в текстовом документе Word 2010? 2 °. Как называются и каково назначение кнопок Абзац вкладки Основное на Ленте? В чем заключается...
тусикк
28.05.2020 21:33
Определите значение переменных m и n после выполнения алгоритма:...
inzhu123345
28.05.2020 21:33
Во Система счисления - это... а)представление чисел в экспоненциальной форме б)представление чисел с заданного набора специальных знаков (цифр) в)представление десятичных...
egorlapin2004
29.05.2020 09:30
1.Ввести массив, состоящий из 14 элементов целого типа. Найтиколичество элементов четных по значению.2.Найти нужный элемент в массиве и вывести его индекс, если...
margomds
28.05.2020 21:31
Реализация нейронных стетей в пакете neural network wizard 4 cos(x)sin(x)...
10089675834075
09.12.2020 22:03
ТЕКСТ ЗАДАНИЯ Укажите канал связив про теи ние1.Стаканчики, нитки2.Глаза, уши3.Смартфон4.Нос, язык...
chip0523
07.03.2021 09:45
9. Письменные сведения об усунях оставил китайский историк II в.до н.э.. 10.По сведениям Чжан Цяня, у усуней было 120 тысяч семей (630 тысяч человек), воинов....
89836331552
07.03.2021 09:45
Решите совокупность неравенств...
Популярные вопросы
Математика алгебра я в этом полный 0...
2
Напишите уравнения диссоциации следующих электролитов...
2
(loudly) in 1 The door squeaksthe winter than in the summer.2...
1
Согласны ли вы с выводом о том, что «предметы народных промыслов...
3
2. В Книгу рекордов Гиннеса вошел торгово-развлекательный центр...
2
Что понимал Т.гобсс под гражданским обществом? Почему философ...
2
Реферат на тему: типи алгориимів...
3
1 There are more and more homeless people. (seem)There seem to...
3
5. Визначте, чому будь-яке пристосування організму є відносним.а)життя...
1
Укажите слово, в котором звуков больше, чем букв . Площадь. Вьюга....
3
begin
a:=0;
while a>=0 do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.