Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aielstar
01.01.2021 17:04 •
Информатика
Сделайте ту же самую программу только с процедурой var x,y,y1,y2,y3: real; function st (b,b1: real): real; begin st: =power(b,b1); end; begin write('x'); readln(x); y1: =st(x,2); y2: =st(x,3); y3: =st(5,6); y: =(y1+y2+y3)/3; writeln('y',y); end.
Показать ответ
Ответ:
katyapugachewa
17.09.2020 12:20
Пойдёт?
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
end;
beginwrite('x');
readln(x);
work;
writeln('y',y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
PhantomMen
07.10.2021 11:09
В сообщении 10 страниц, 30 строк по 60 символов. Сколько кбайт содержит сообщение...
ащна
08.03.2020 19:36
Що таке комп,ютерна графіка?Назвіть її види...
Айхан1111111111
02.06.2021 18:23
рассчитайте время звучания моноаудиофайла, если при 16 битном кодировании и частоте дискретизации 24кгц его объем равен 850кбайт...
KONERtm
12.08.2022 17:18
Решить на паскале: 1) Написать программу для ввода n пар натуральных чисел, из которых выбрать максимальное значения из каждой пары и посчитать сумму максимальных значений....
daryatitova1
07.05.2020 11:24
Напишитепрограмму, которая вычисляет массу тела, если известна плотность и объем.(на питоне )...
гуля5182
15.04.2023 00:14
рассчитайте время звучания моноаудиофайла, если при 16 битном кодировании и частоте дискретизации 24кгц его объем равен 850кбайт...
Мастер008
01.01.2020 05:33
Дан массив из 20 чисел заданных случайным образом. найти: наименьшее нечетное число и его номер. вывести на экран исходный массив, наименьший нечетный элемент и его номер....
iratsymbal7
01.01.2020 05:33
Значение слов.информация,органы чувств,...
brzruchkovika
05.03.2023 11:58
Какое значение для адыго сближения имела женитьба ивана 4 на дочери кабардинского князя...
veronikasimonova1
05.03.2023 11:58
Кнаступлению холодов в клеточной жидкости насекомых и некоторых земноводных резко увеличивается сожержание глицерина. обьясните этот природный факт....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
end;
beginwrite('x');
readln(x);
work;
writeln('y',y);
end.