Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Roman2321
25.07.2020 17:04 •
Информатика
Дана последовательность из n вещественных чисел. переменной t присвоить значение true, если в последовательности нет нулевых элементов. написать программу для pascal abc и блок-схему. студенческий уровень.
Показать ответ
Ответ:
danilpetuhuv03
07.10.2020 06:54
Var
N, i: integer;
x: real;
t: boolean;
begin
readln(N);
i := 0;
repeat
i := i + 1;
Readln(x);
until (x < 0.001) or (i = N);
t := x > 0.001;
writeln(t)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alaaaaaaa
06.10.2020 10:22
І рівень 10. Заповніть пропуски у записі циклу з передумовою (повна та скорочена форми);while while команда n команда інакше » вас ...
Виктория2478
29.12.2022 04:47
С++ Напишите программу, которая вводит натуральные числа a и b , и выводит квадраты натуральных чисел в диапазоне [ a , b ] . Входные данные Входная строка содержит два натуральных...
aliyarahimova27
29.10.2021 18:23
Разрешение экрана монитора 800×480 означает, что изображение на его экране будет состоять източек в каждой строке....
viktoriam1
19.12.2021 13:05
Информатика, условный оператор. дали блок-схему на нее надо ориентироваться...
12ал12ён12на12
08.07.2022 23:33
Какие форматы не относятся к растровым графических файлов ? а)bmp c)png б)tiff д)odt...
agentponomarev6
23.01.2021 04:04
3. указівка навеб-сторінку абодеякий об єкт веб-сторінкизапитами іншимкомп ютерам...
Lena2345671
03.11.2022 17:47
Вычислите, предварительно перейдя в двоичную систему счисления: (-28) + 43...
harrasova2000ozvpju
17.05.2023 14:51
Pascal бабу ягу пригласили на должность директора фирмы. в первый день к ней пригласили двух курьеров. каждый последующий день количество курьеров устраивалось. баба яга согласилась...
fargustyana
26.06.2020 07:49
1.md5 суммы нужны для того, * 1. упорядочить расположение файлов на компьютере 2.уменьшить размер файлов на вашем компьютере. 3.проверить целостность пересылаемых файлов 4.увеличить...
Milena251267
27.03.2021 20:10
Составте алгоритм например : готовка борща, 1 налить воду в кастрюлю. 2 порезать мясо и т.д , но мне нужно алгоритм другого действия...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N, i: integer;
x: real;
t: boolean;
begin
readln(N);
i := 0;
repeat
i := i + 1;
Readln(x);
until (x < 0.001) or (i = N);
t := x > 0.001;
writeln(t)
end.