Решите пожалуйста. Нужно написать программу в Pascal ABC.
5-9 класс
|
Условие какое-то мутное: то речь о "а", то "х". Да напечатано криво.
Может, вот так:
var x,y:real;
begin
write('Введите х: ');
readln(x);
if x<0 then y:=1
else y:=x*x;
if x>1 then y:= y*y;
writeln('Ответ: ',y);
end.
Другие вопросы из категории
сть которого на 1024 бит в секунду больше.
2007
помогите пожалуйста не получаеться ни как сделать!!!!!(((((
Читайте также
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
1.Вводится действительное число x. Вычислить значение функции x^3+(2√(x-2))/(3+x^2 )
Нужно написать программу в Pascal.
2.Написать программу для задачи: вводится двухзначное число, выяснить из одинаковых цифр оно состоит или нет.