Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yuliaprok61yulia1206
04.05.2021 19:47 •
Информатика
Посчитать сумму чисел, введённых с клавиатуры. ввод чисел до тех пор, пока не будет значения 0. ( с предусловием и постусловием ). на языке паскаль.
Показать ответ
Ответ:
darya942
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 оценок)
Популярные вопросы: Информатика
анастейша1410
28.09.2020 10:52
Вопрос Выберите лишнее устройство.Укажите правильный вариант ответа:микрофонзвуковые колонкимышьклавиатураВопросЧто понимается под программным обеспечением компьютера?Укажите...
Bksd
12.06.2021 00:00
Сколько школьных учебников размером 128 Кбайт можно разместить на компакт-диске ёмкостью 700 Мб?...
Zufar1618
24.02.2020 12:58
НАДО СДАТЬ ЧЕРЕЗ 2 ЧАСА...
vladholyngha
31.03.2023 02:46
робот находится непосредственно сверху у вертикальной стены правого конца ,составьте алгоритм , как в кумире...
Дуся003
02.09.2022 16:41
Складіть проєкт для малювання чотирьох квадратів, розміщених пору Довжина сторони першого з них дорівнює а кроків, а довжина сторонкожного наступного — на b кроків більша за...
sedelnickovm
20.03.2022 09:37
Укажите 3 любых параметра настройки сносок и их виды ...
yoc
09.09.2022 14:37
1. Выберите верное обозначение столбца в электронной таблице: 1) AN 2) T7 3) 74 4) 16H 2. Выберите верный адрес ячейки в электронной таблице: 1) 74R 2) G10 3) АП9 4) K3L 3....
terckovanata
07.09.2020 15:45
Дано натуральное число n. написать программу, выводящую на экран первых n нечетных чисел 1,...
BossPolina
06.12.2021 13:18
Укажи спряжения глагола с безударными окончаниями. Мурлычет-. Варим-. Строгают-. Играете-. Смотришь...
flint4040p070t0
06.12.2021 13:18
Дайте технические названия поливинилхлорида и полиметилметакрилата, опишите их физические и электрические свой-ства. Рассчитайте, во сколько раз изменится расстояние между пласти-нами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.