Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Дисконет
12.10.2022 01:09 •
Информатика
Написать программу, используя три вида циклов (цикл с параметром, цикл с предусловием и цикл с постусловием) исходная формула : z=tg (t-cost) значение аргумента : t=14; 15; 16; 17; 18; 19 заранее
Показать ответ
Ответ:
Элизабет3000000
08.10.2020 08:21
Program tg;
var z:real;
t:integer;
begin
t:=14;
for t:=14 to 19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
end;
end.
Program tg;
var z:real;
t:integer;
begin
t:=14;
while t<=19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t+1;
end;
end.
Program tg;
var z:real;
t:integer;
begin
t:=19;
repeat
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t-1;
until t=13;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ГюнтерСтингерсон
30.10.2020 05:52
№3737 две половинки ) дана строка. разрежьте ее на две равные части (если длина строки — четная, а если длина строки нечетная, то длина первой части должна быть на один...
Tawerpro
14.12.2022 06:16
1) сообщение из 512 символов. алфавит 256 символов. каков информационный объем сообщения? 2) сколько бит содержится в 512 килобайтах?...
asimagasanova
21.04.2022 18:59
Алфавит некоего народа состоит из 16 символов сколько бит информации несет сообщение написаное с этого алфавита содержащее 32 буквы выберите один вариант ответа...
eldiev2005
31.12.2022 19:03
Графическая информация на экране монитора представляется в виде:...
tolia24465
23.06.2021 06:33
Встановіть відповідність між початковими значеннями змінної х (1-4) і значеннями змінної у після виконання оператора. If x 0 Then y:= xElse If x = 5 Then y := sqr(x)...
6811694978ффф
15.01.2022 07:26
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 58 символов в этой кодировке. ответ: байтов....
Dashulechka123456
24.01.2022 13:37
Автомобиль за 4 часа км.сколько км он пройдёт за 7часов если его скорость увеличится на 6 км/ч быстрее...
kristinakwai
24.01.2022 13:37
Как разобрать по составу слово отгоняя...
Palinka1
24.01.2022 13:37
Днем и ночью слышны в лесу шорохи. есть ли в этом предложении подлежащее и сказуемое?...
darialitvinenko
24.01.2022 13:37
2км пешеход за 30 мин.какое расстояние он пройдет за 1,5 ч, двигаясь с той же скоростью...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var z:real;
t:integer;
begin
t:=14;
for t:=14 to 19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
end;
end.
Program tg;
var z:real;
t:integer;
begin
t:=14;
while t<=19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t+1;
end;
end.
Program tg;
var z:real;
t:integer;
begin
t:=19;
repeat
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t-1;
until t=13;
end.