Помогите СРОЧНО пожалуйста!!!Напишите программы на языке Паскаль
Задача1.Составить программу для расчета z=2.5sin x^2+x^3 Число х вводится с клавиатуры.
Задача 2.Задать 3 натуральных числа . Являются ли их сумма четным числом
Задача 3.Напечатать все делители натурального числа N.
ЗАРАНЕЕ СПАСИБО
Ответы на вопрос
Ответил Студэнt
0
//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.
Ответил Аноним
0
write (((readinteger('Введите 3 нат. числа: ')+readinteger+readinteger) mod 2)=0); - просто "песТня" ))
Ответил Аноним
0
Процитировал Ваше решение в конференции разработчиков PascalABC.NET - пусть улыбнутся. им ведь тоже приятно бывает посмотреть, как пишут на их детище.
Новые вопросы
География,
2 года назад
Литература,
2 года назад
Математика,
8 лет назад
Геометрия,
9 лет назад
История,
9 лет назад