Подскажите пожалуйста написать программу на язык паскаль?
168
ОТВЕТЫ
Вроде так, просто нет значений для проверки:
var
x:real;
begin
writeln(Write x:);
readln(x);
writeln(sqr(sin(x)/cos(x))+2*(sin(x)/cos(x)):0:2);
readln
end.
var
x:real;
begin
writeln(Write x:);
readln(x);
writeln(sqr(sin(x)/cos(x))+2*(sin(x)/cos(x)):0:2);
readln
end.
282
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Koeschcha
Сообщение занимает 2 страницы и содержит 2,5 кбайт информации.На ...
2019-01-22 02:58:38
Gavinara
Составить программу с помощью Pascal ABC для определения количества ...
2019-01-22 02:53:54
Gazar
Подскажите подобрать колоду для подъёма на 4000 кубков
...
2019-01-22 02:49:28
Malanara
Как на языке Паскаль умножить 2 любых числа? Напишите ...
2019-01-22 02:49:23