Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Nastyakk7
05.06.2022 04:23 •
Информатика
Как на Pascal написать от 4.71 до 5???
Ответ:
Rexmaster0
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 оценок)
Популярные вопросы: Информатика
Пушка1244
12.05.2021 01:58
3) Сколько портов в ev3? 1. 4 2. 10 3. 2 4. 8 можете срочьно...
marekatyan
21.11.2020 12:04
Найти сумму элементов последовательности не равных 5 НА ЯЗЫКЕ ПИТОН...
dmitrius2
04.01.2020 19:25
1. цветной сканер имеет разрешение 256x128 точек/дюйм. объем памяти, занимаемой отсканированным изображением размером 2x2 дюйма, составляет 2 мб. определите глубину...
Sevinch94
04.01.2020 19:25
() 1) выполните вычитание в двоичной системе счисления: 1011012 - 111112 результат запишите в двоичной системе счисления. 2) вычислите значение арифметического выражения...
Anzhelika0624
04.01.2020 19:25
Cоставить программу вычисления значения выражения: y=sin√x-1 -sin √x+1...
Amalik0
13.09.2020 04:06
Как называется компьютерная мышь по другому...
Caflen
02.04.2022 20:39
Надо составить 5 предложений,что является высказыванием, и 5 что не является высказыванием. 9 класс....
крузейро
30.11.2022 19:54
На питоне:Вывести на одной строке числа 1, 13 и 49 с одним пробелом между ними....
misha22656
26.07.2022 19:16
Уровень с 1. Используя таблицу, зашифруй и запиши три пословицы о Родине. стр 24 Уровень С...
Kykyshonochek1305
08.10.2020 22:23
Выполняем в тетради Заполни в тетради?Электронная подписьКриптография Шифр Цезаря стр 23...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Program z1;
Var
a:real;
Begin
a:=4.70;
While a<5 do
begin
a:=a+0.01;
writeln(a) ;
End;
End.