Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Trololoxa
30.01.2021 01:30 •
Информатика
Как на Pascal написать от 4.71 до 5???
Показать ответ
Ответ:
УбийцаАкамеAkameKill
14.10.2020 13:29
Program z1;
Var
a:real;
Begin
a:=4.70;
While a<5 do
begin
a:=a+0.01;
writeln(a) ;
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
sabin200089
01.03.2023 14:22
Составить программу: 1.дана последовательность чисел. найти количество отрицательных элементов. последовательность целых чисел найти сумму между максимальными и минимальным...
1artemochek
13.11.2021 07:52
Какая персональная информация, размещенная на онлайн-ресурсе, должна быть удалена из поисковой системы по запросу пользователя? a. любое групповое фото, на котором есть...
Malika89551
13.11.2021 07:52
Впроцесе загрузки компьютера возникло сообщение non system disk . с чем это может быть связано?...
Sokol123412343412
03.11.2022 21:54
Составить программу в паскале: дан одномерный массив найдите разность наибольшего и наименьшего элемента этого массива...
Andromeda123464
03.11.2022 21:54
Написать программу, которая в введенной с клавиатуры строке преобразует строчные буквы алфавита в прописные...
Madi12kz
03.05.2020 19:25
написать программу по заданному графику. PascalABC...
qweasdzxcrfvtgbmn
02.12.2020 06:23
пришлите скриншотам ...
nechakva86
19.08.2020 05:39
Задача №2 Размеры шкафа A × B × C. Возможно ли его пронести через дверной проем размерами X × Y? Входные данные Даны целые числа A, B, C, X, Y (1 ≤ A, B, C, X, Y ≤ 100)...
bahriddinJoN2085
05.08.2020 14:07
Записать на языке информатики выражение (1-x^2+2.5x^2+x^4 )^2...
hyperIcum
12.04.2021 14:32
2. Внимательно прочтите историю возникновения крылатого вы- ражения и проанализируйте её в соответствии с «алгоритмомЦицерона»: ктода. Заполните соответствующий шаблон Цицерон.doc...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program z1;
Var
a:real;
Begin
a:=4.70;
While a<5 do
begin
a:=a+0.01;
writeln(a) ;
End;
End.