Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
1KoTObOpMoT1
08.10.2021 06:36 •
Информатика
Написать программу, используя три вида циклов (цикл с параметром, цикл с предусловием и цикл с постусловием) исходная формула : z=tg (t-cost) значение аргумента : t=14; 15; 16; 17; 18; 19 заранее
Показать ответ
Ответ:
mulanmango
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 оценок)
Популярные вопросы: Информатика
милкаshow
29.04.2020 12:33
Можно ли составить одну модель для разных объектов? если да, то пример. если нет, то объясните почему нельзя. 2выберите, что из перечисленного не является информационной...
VADioG
29.04.2020 12:33
Оцените количество информации, содержащейся в черно-белой фотографии размерами 10x10 см, воспроизведенной при растра с разрешением 24 точки/см. каждая точка может иметь...
филькатв
29.06.2021 01:15
Составить алгоритм рисования первой буквы вашего имени буквы з , pleas...
rilyakip0730v
25.02.2022 07:14
Саша, петя, вася и аня поймали 26 окуней. саша поймал на 3 окуня больше, чем петя. петя поймал на 3 окуня больше, чем вася, а вася на 3 больше, чем аня. сколько окуней...
Ruslan2284612
16.03.2021 13:07
Записать на языке паскаль следующие выражение если число кратно 3, тогда вывести на экран да , иначе вывести нет...
НaстяРайская
16.03.2021 13:07
Составить алгоритм рисования первой буквы вашего имени, буквы з . я вас напишите мне все координаты, я не шарю в информатике...
sashunyakotova
16.03.2021 13:07
Напишите программу для этого : какой минимальный объём памяти (в байтах) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером a×b...
bati9999
07.05.2022 00:28
Вследующих высказываниях выделите простые высказывания, обозначив каждое из них буквой; запишите с букв и знаков логических операций каждое составное высказывание:...
Lenakaka56784
07.05.2022 00:28
1. найти площадь треугольника, две стороны которого равны а и b , а уголь между этими сторонами равен у. 2. составить программу вычисления объема цилиндра и объема...
cherryyy777
07.05.2022 00:28
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 720×360 и палитрой из 65536 цветов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.