Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Serdechkiцветочек
12.05.2023 05:43 •
Информатика
1.составьте программу которая вычисляет произведение натуральных чисел кратных 13 в диапазоне от 100 до 405 2.найти произведение четных чисел от 11 до 36 3.найти значение функции у=5х+6 на отрезке [1; 4] с шагом 0,4
Показать ответ
Ответ:
nastyaxa12oziu9w
06.10.2020 04:25
Первая программа:
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 405 do
if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 8.85587927807922E+56
Вторая программа:
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 to 36 do
if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 4.37068711644365E+17
Третья программа:
Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.
Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25
0,0
(0 оценок)
Популярные вопросы: Информатика
nastya2740
04.04.2023 07:23
Сколько существует дорог из города А в город И?...
cahangir4
21.08.2020 22:02
Елочная игрушка сделана из бусин разного цвета...
svetlanasalamon
21.08.2020 22:02
Информатика пользователям центра актив отправили сообщение. сообщение равно 10 байт. напишите объем информации в мбайт и в кбайт...
Evaliberman
03.03.2020 02:17
Елочная игрушка сделана из бусин разного цвета,рассмотри рисунок и запиши в таблицу информацию о том из каких бусин состоит игрушка...
21VR
30.06.2022 14:21
Всі двоцифрові числа кратні Var-N 1. Вивести сисла на проміжку [Var (варіант); Var*N (вводиться)]. Перевірити Var 2. Вивести числа на проміжку [-Var (варіант); -Var*N (вводиться)]....
Саша15e
10.09.2021 16:05
11 Складіть проект для малювання чотирьох квадратів, розміщених поруч. Довжина сторони першого з них дорівнює а кроків, а довжина сторони кожного наступного – на b кроків більша...
aser101q
12.10.2022 00:19
Які властивості має лінія у Word...
andreyrekvinov
20.10.2021 03:13
Яких значень може набувати лінія у програмі Word...
шкальник2281337
20.11.2020 00:12
На PYTHON PYTHON Дана строка текста. Подсчитать количество букв «т» в строке. помагите! что имено должен написать, когда запишу это в программу?...
romanovegorka6
13.01.2023 23:28
1.Написати фрагмент програми для підрахунку суми тільки додатних із трьох даних чисел. 2.Дано три числа. Написати фрагмент програми для підрахунку кількості чисел, що дорівнюють...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 405 do
if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 8.85587927807922E+56
Вторая программа:
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 to 36 do
if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 4.37068711644365E+17
Третья программа:
Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.
Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25