Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
OtvettePlz
02.03.2021 07:41 •
Информатика
Посчитать сумму чисел, введённых с клавиатуры. ввод чисел до тех пор, пока не будет значения 0. ( с предусловием и постусловием ). на языке паскаль.
Показать ответ
Ответ:
69699696
05.10.2020 23:50
Var
A:integer;
S:real;
Begin
{Постусловие}
S:=0;
Repeat
Read(A);
S:=S+A;
Until A = 0;
WriteLn('S = ',S);
{Предусловие}
S:=0;
Read(A);
While A<>0 do
Begin
S:=S+A;
Read(A);
End;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ddddddddddddddd10
08.06.2020 01:48
python надо выбрать правильный ответ или неправильный...
Агата1713
01.01.2022 11:41
Напишите 3 минутное сообщение на тему: создания эвм . ,что бы было не много текста,чуть меньше пол листа а4. заранее...
myzroman
30.10.2021 02:58
Найти площадь кольца, внутренний радиус которого равен 20, а внешний -заданному числу r (r 20). c# sharp...
tolikbn85
24.06.2022 13:50
Ввести массив x1,. элементы, на нечетных местах, расположить в порядке возрастания, а на нечетных в порядке убывания....
Rima02
28.12.2020 23:16
1.что называется лицензионным и нелицензионным обеспечением 2.что называется обновлением программного обеспечения...
gg322
28.12.2020 23:16
Графический файл размером 256 на 128 пикселей сохранный как 256 рисунок найдите размер файла в килобайтах...
DashaHB16
23.06.2022 11:49
Всем , у меня вопрос про блок схемы. вот : ввести с клавиатуры текущее время и определить время суток (pm – с 0 до 12, am – с 12 до 24)....
nAsTyAsUpErYeS
14.06.2021 04:53
Какое максимальное число можно записать в двоичной системе если комп оперирует с семизначными числами тот же вопрос в случае с одиннадцатиразрядного и пятнадцатиразрядного...
ранго1
21.07.2021 03:28
На языке программирования python напишите программу, которая определяет, какой круг из трех больше, если известно, что r1 — радиус 1-го круга, r2 — радиус 2-го круга,...
handaa0615
16.09.2020 06:14
1. максат для реферата по биологии нарисовал изображения цветов. данные изображення хранятся в оперативной памяти. изображение одного цветка требует 10 кб памяти. размер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
S:real;
Begin
{Постусловие}
S:=0;
Repeat
Read(A);
S:=S+A;
Until A = 0;
WriteLn('S = ',S);
{Предусловие}
S:=0;
Read(A);
While A<>0 do
Begin
S:=S+A;
Read(A);
End;
WriteLn('S = ',S);
End.