Информатика | 10 - 11 классы
Составить программу на языке pascal abc.
По алгоритму (Алгоритм приложен).
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить алгоритм(программу) на языке паскаль : y = b ^ 2 - 100?
Составить алгоритм(программу) на языке паскаль : y = b ^ 2 - 100.
Алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов?
Алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов.
Составить алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов?
Составить алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов.
Как сделать алгоритм в Pascal ABC?
Как сделать алгоритм в Pascal ABC?
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2?
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2.
Pascal abc.
Net.
Программирование алгоритмов ветвления ?
Программирование алгоритмов ветвления .
Составить программу на Pascal.
На странице вопроса Составить программу на языке pascal abc? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Var a, x, y : real ;
procedure st(a, x : real ; var y : real) ;
begin
end ;
begin
write('a, x, y : ') ;
readln(a, x, y) ;
if x = 0
then y : = 1
else if x>0 then st(a, x, y) else st(1 / a, - x, y) ;
writeln('y = ', y) ;
end.
Пример :
a, x, y : 1 2 3
y = 3.