Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Блинь
11.10.2022 06:01 •
Информатика
Напишите программы на языке паскаль .составить программу для расчета z=2.5sin x^2+x^3 число х вводится с клавиатуры. 2.задать 3 натуральных числа . являются ли их сумма четным числом 3.напечатать все делители натурального числа n. заранее
Показать ответ
Ответ:
Tennisboy
05.10.2020 12:57
//1
begin
var x:=readreal('Введите x: ');
write ('z=', 2.5*sin(sqr(x))+x*x*x);
end.
//2
begin
write (((readinteger('Введите 3 нат. числа: ')+readinteger+readinteger) mod 2)=0);
end.
//3
begin
var n:=readinteger ('Введите n: ');
for var i:=1 to n do
if (n mod i)=0 then print (i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
натали23011980
19.06.2020 23:54
Запишите имя блока, который образуется пересечением: 1) столбцов c, d, e со строками 5, 6, 7, 8; 2) столбцов f, g со строками 1, 2, 3; 3) столбцов b, c, d, e со строками...
stefka2001
01.06.2020 18:09
Подготовьте таблицу вида значения в диапазоне ячеек b1 : b20 получите автозаполнением. выполните следующие расчёты. а) получите сумму всех целых чисел от 1 до 20 ячейке...
Rednegel
09.03.2023 22:41
1.Какой обхода данных в памяти является самым медленным? Почему? 2.Для каких программ наличие кэш-памяти дает выигрыш во времени работы? 3.Назовите две основных причины,...
Deni05
26.04.2020 14:20
Что является средой ГРИС «Стрелочка»? 1. лист (страница экрана) 2. тетрадь 3. система команд 4. стрелочка...
kotik259
12.06.2022 02:05
Опишите, какие нарушения допустил пользователь при работе за компьютером...
леся546576
15.08.2022 16:50
Айжан хотела прислать своей сестре, которая живет за границей, качественные фото и видео с природой Алматы. Он решил заархивировать файлы перед их отправкой. Какой тип...
shegve
21.02.2023 10:51
С каких программ создают фоторедакторы?(странный вопрос, но может кто знает?)...
динька2
29.12.2022 12:26
Рассчитайте в мегабайтах объем информации, требуемый для хранения рисунка, который состоит из 1800 цветных точек по горизонтали и 1000 точек по вертикали, а каждая точка...
rimakarapetyan12
28.03.2023 03:14
КТО ПРАВИЛЬНО ОТВЕТИТЬ ЕЩЁ ПОДПИШУСЬ ,ОСЕНЬ ЭТО СОР ПО ИКТ 5КЛАСС...
влад2317
18.05.2023 12:52
Вопрос 23 Какой объем памяти (в Кбайтах) необходим для хранения одноминутноговидеоролика при условии, что пространственное разрешение равно 640 x 400пикселей, количество...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var x:=readreal('Введите x: ');
write ('z=', 2.5*sin(sqr(x))+x*x*x);
end.
//2
begin
write (((readinteger('Введите 3 нат. числа: ')+readinteger+readinteger) mod 2)=0);
end.
//3
begin
var n:=readinteger ('Введите n: ');
for var i:=1 to n do
if (n mod i)=0 then print (i);
end.