Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
генабезруков
[30]
7 месяцев назад
6
Посчитать сумму чисел, введённых с клавиатуры.
Ввод чисел до тех пор, пока не будет значения 0. ( С предусловием и постусловием ). На языке Паскаль.
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
bossslava
7 месяцев назад
0
0
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.
Отправить
Читайте также
Переведите из шестнадцатеричной системы счисления в двоичную число EE
мезя [35]
Ответ: 11101110 .....
0
0
4 года назад
1)Выпишите элементы множества M = A – B для множеств A = {1, 3, 5}, B = {5, 6, 7}. 2)Выпишите элементы множества M = (A –B)U(A B
jurgen9095
0
0
2 года назад
В отборочном забеге участвуют 5 спортсменок: Петрова, Белова, Комарова, Митина и Громова. Две лучшие спортсменки выходят в финал
Anastasiya Mirnaya [14]
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова
0
0
4 года назад
Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации (Килобайты - К,
Кембель
A байты = A / 1024 Килобайт = A / 1024 / 1024 Мегабайты = A /1024 /1024 / 1024 Гигабайт
0
0
3 года назад
Составьте программу рисования прямоугольной рамки вдоль края поля при любом начальном состоянии
shastinka [8]
Наверное составить алгоритм?
0
0
2 года назад
Смотрите также:
Обозначим через m&n поразрядную конъюнкцию неотрицательных целых чисел m и n. Например, 14&5 = 11102&01012 = 01002 =
9
·
1 ответ
Статья, набранная на компьютере, содержит 128 страницы, на каждой странице 32 строки, в каждой строке 32 символа. Информационный
8
·
1 ответ
Чемпионат по шашкам Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный
6
·
1 ответ
Скорость передачи данных через ADSL-соединение равна 512000 бит/с. Передача файла по этому каналу занимает 16 сек. Определите о
9
·
1 ответ
Необходимо задать массив размерностью 5, заполнить массив случайными числами в интервале [-1,1] и вывести элементы на экран: опр
11
·
1 ответ
Написать программу, которая вводит с клавиатуры одномерный массив из пяти целых чисел и выводит количество ненулевых элементов
15
·
1 ответ
Pascal. Мозг уже плавится, помогите, пожалуйста, еще куча задач решить надо... Дана строка и число. Преобразовать строку, чтобы
5
·
2 ответа
:Â ячейке B1 записана формула =2*$A1. Какой вид приобретет формула, после того как ячейку B1 скопируют ячейку C2? Выберите один
7
·
1 ответ
Как перевести число 653(16) в (10) и в (8)
6
·
1 ответ
При составлении расписания уроков на один день учителя истории,математики,литературы высказали следующее предложения: математик
8
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!