Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nagibator228333
24.02.2020 07:57 •
Информатика
1.составьте программу которая вычисляет произведение натуральных чисел кратных 13 в диапазоне от 100 до 405 2.найти произведение четных чисел от 11 до 36 3.найти значение функции у=5х+6 на отрезке [1; 4] с шагом 0,4
Показать ответ
Ответ:
OlyaKasyanenko28
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 оценок)
Популярные вопросы: Информатика
vladosik1885
19.03.2022 01:33
Укажите черты, характерные для «компьютерной» технологии создания текстовых документов: Значительные материальные затраты на приобретение компьютерной техники Компактность хранения...
ДимаЛапа
12.07.2020 15:58
Выбрать формулы, содержащие ссылки с абсолютной адресацией ( : 1) =$R$5/6 =R3+K12 =9-$H$2 =J4*L3...
nano82
14.05.2023 11:04
Запишите несколько примеров исполнителей-технических устройств, с которыми вы встречались в повседневной жизни.копировать из инета не надо,я всё там посмотрела.комп,чайник и...
levyjigor45
21.04.2021 14:15
Как определяется качества объектов и событий...
suhrobiddin98
12.07.2022 05:51
Как осуществляется изменение последовательности слоев?...
soullina
12.07.2022 05:51
Balatech asia уравень решить...
ladytka4ewa201
04.02.2022 00:29
+ подписка Сделайте 6 задание и кому несложно можете и 7...
MashaBelous
22.03.2022 02:38
надоПо заявке плодоовощной базы шофер автохозяйства Яковлев должен был работать на перевозке винограда со станции железной дороги, находящейся на расстоянии 10 км. Утром Яковлев...
kitmyfaded
19.02.2022 18:34
6. Найдите СПП с несколькимипридаточными. *а)В жаркие июльские дни, когдагород, окружённый со всех сторонстепями, изнывал от солнца иуличной трескотни, здесь приятночувствовалась...
Ga1mer
26.03.2022 23:16
5. Вибери ознаку, яка має вузькунорму реакції:а) група крові;б) зріст,в) маса тіла;г) колір шкіри....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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