Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Roland227
13.08.2021 10:34 •
Информатика
Составьте блок-схему и программу для решения , в которой требуется вводить с клавиатуры числа и подсчитывать их сумму , до первого введенного отрицательного числа
Показать ответ
Ответ:
Даниил12345666
26.08.2020 11:18
Код Pascal:
Var
S,A:real;
Begin
S:=0;
WriteLn('Введите числа: ');
Read(A);
While A>=0 do
Begin
S:=S+A;
Read(A)
End;
WriteLn('S = ',S);
End.
Блок-схема:
0,0
(0 оценок)
Популярные вопросы: Информатика
urbutite71
02.10.2020 00:16
1. Расмотрите изображение. Определите эфекты, использованных к изображению 1 и изображению 2 Информатка СОР ...
rsobal45gmailcom
01.12.2022 13:27
Какие бывают процедуры? Верных ответов:2пользовательские локальныестандартныеглобальные...
matveyxhi
19.01.2021 20:53
Програмирование найти все числа делителей k и l в диапозоне чисел m и n(n...
kdortskaya55
25.12.2020 03:48
Составь предложения противоположные по смыслу данным предложениям петя не умеет читать...
Никаgyvhbbuh
01.11.2021 08:09
Сколько будет если три мегабайта вычли 692 кикобайта...
stanislavfred
18.04.2023 22:18
Что из перечисленного не является носителем информации? диск с играми книга карта звуковая плата фотография...
ноолмллкшшп
01.11.2021 04:07
Составить программу,которая: а)из слов программа составляет слова: грамм , рога , гора ; б) из слов страх , белка , цыпленок получает слово столбец ; в)считает, сколько...
Nastena11102003
15.12.2021 18:49
Написать программу, которая выводит таблицу значений функции y=-2.4x^2+5x-3 в диапазоне от -2 до 2 с шагом 0.5...
лёдсовкусомпохмелья
08.04.2023 08:30
3. найти сумму всех натуральных двузначных чисел, делящихся на 7...
torshindanya
19.12.2020 01:56
Написать программу которая выводит таблицу квадратов первых 10 целых положительных чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
S,A:real;
Begin
S:=0;
WriteLn('Введите числа: ');
Read(A);
While A>=0 do
Begin
S:=S+A;
Read(A)
End;
WriteLn('S = ',S);
End.
Блок-схема: