tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано вещественное число a.
Дано вещественное число a. из чисел 1, 1+1/2, 1+1/ напечатать те, которые меньше a. решите, , через while!
Cat09112005
1 18.09.2019 16:10
1
Ответы
raremani
08.10.2020 00:22
Var a,l,s:real;
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ирммри
15.07.2019 00:20
Напишите операцию, в результате которой у строки s окажется отрезанной первая буква....
МелодиЛук
15.07.2019 00:20
15 сложение двоичных чисел производят по правилам: 1. 0+0=0, 1+0=1, 0+1=1, 1+1=0. 2. 0+0=0, 1+0=1, 0+1=1, 1+1=2. 3. 0+0=0, 1+0=1, 0+1=1, 1+1=10....
alicahirdeeva
15.07.2019 00:20
Примеры понятий, объемы которых являются: а) пустым множеством б) множеством, состоящим из одного элемента, в) множеством из 10 элементов г) бесконечным множеством....
serovv751
15.07.2019 00:20
Решить в паскале) дан файл целых чисел. создать два новых файла, первый из которых содержит отрицательные числа из исходного файла (в обратном порядке), а второй — положительные...
sstresseddoutt
26.04.2020 14:27
Приведите три примера того, в каких облостях деятельности человека компьютер лудше справится с решением поставленной задачи....
666656
26.04.2020 14:27
Проект на одну из тем: 1. Устройство для домашнего животного 2. Домашняя автоматизация 3. Охранная система Необходимо задействовать как можно больше элементов(которые были...
скрытник
23.05.2019 08:40
Дан массив из 30 элементов, принимающих значения от 0 до 100. найти произведение двузначных чётных элементов массива, которые начинаются с цифры 5, 6 или 7.гарантируется,...
korolevdanil99
23.05.2019 08:40
Каково основное предназначение компьютера?...
А6р7с8е9н
13.06.2019 06:20
Закодуй у вигляді ребуса одне слово школа...
gjjfdkjgfyijh
12.03.2021 13:57
2. Определите описание языка программирования и системы программирования. Отметьте галочкой «» квадрат с вашим ответом.ОписаниеЯзык программированияСистемапрограммированияФормальная...
Популярные вопросы
с химиейДано:м (раствора) = 500 грw (сахара) = 30 %м (воды) = 2000 гр...
3
12.Why you this hat? It looks bad. A) were / buyB) did / buyC) was /...
2
1) 4 log2 4 х - 8 log 4 х – 5 0; 2) log 2 √х - 2 log2 1/4 х + 1 0...
2
Можете написать не большое сообщение, о А. П. Чехов за ранее....
2
Чему будет равно значение переменной z после выполнения фрагмента программы...
1
1Какой момент из произведения изображён? 2 Перечислите, каких героев...
3
Выберите грамматически верный вариант ответа. 1. We have problems with...
3
Үлгі бойынша жаңа сөздер құрап үйрен. Үлгі: кітапхана- кітап, тап, хан,...
1
С каким цветом ассоциируется увас тот или инои герои повести?...
2
Мәтіннен 2салт, 2сабақты етістігі бар сөйлемдерді көшіріп жазып, астын...
1
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.