Moshicage
4 год назад
Пожалуйста посчитайте СРОЧНО пожалуйста!!!Напишите программы на языке ПаскальЗадание1.Составить программу для расчета z=2.5sin x^2+x^3 Число х вводится с клавиатуры. Задание 2.Задать 3 натуральных числа . Являются ли их сумма четным числомЗадание 3.Напечатать все делители натурального числа N.ЗАРАНЕЕ СПАСИБО
ОТВЕТЫ
Леондий
Oct 24, 2020
//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.
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.
558
Смежные вопросы:
