1. Информатика
  2. Программа паскаль. водим целое

Программа паскаль. водим целое число - а; если оно делиться на 5ть, то должно выполняться по формуле cos^3a, если не делиться на 5ть то 3tg a программа сама пишется через как то div, mod

lhe lhe    2   10.07.2019 06:30    0

Ответы
Каринакарина111 Каринакарина111  15.09.2020 12:28
Var a: integer;
begin
readln(a);
if (a mod 5 = 0) then 
writeln((cos(a) * cos(a) * cos(a)):0:5)
else   
writeln((3 * sin(a) / cos(a)):0:5);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
EldarHolter EldarHolter  13.03.2021 18:30
Задание во вложении. Кто может , я буду очень рада.)))...
nastyaswan1405 nastyaswan1405  03.10.2019 12:40
Решить , используя три записи алгоритма. y=x2+k/x...
kim201 kim201  16.10.2021 21:17
Декодируй информацию и запиши ответ 23 27 25 28 43 45 32 16 29...
VaneK12354 VaneK12354  11.05.2020 06:49
Составьте программу, которая выводит на экран значения y для значений x, равных -1, 0, 1, …, 8, если y = 2+6; t = x-2....
romabryuxachev romabryuxachev  11.05.2020 06:49
Напишите программу Python, которая будет использовать цикл FOR для печати ваше имя 10 раз, а затем слово сделано в конце​...
prostopohelnaxyi prostopohelnaxyi  11.05.2020 06:49
9. Какое значение принимает параметр Sender в процедуре рrосеdurеTForm1.EditiClick(Sender: TObject)?a) Edit1b) не принимает значение...
irinaira72rt irinaira72rt  15.05.2021 15:45
Вариант №1 №1. Пользователь вводит радиус (целое число)окружности. Программа должна вывести на экранплощадь круга (формула: s=2pr).№2. Пользователь вводит длину н ширину (числа...
russilian russilian  15.05.2021 15:47
1.Может ли веб-клиент работать в локальной сети? * A)Да B)Нет C)Да, если установить флажок в настройках браузера 2.Тип формы «Форма констант» можно выбрать в… * A)конструкторе...
Bossak Bossak  15.05.2021 15:48
разрешение экрана 512×128 пикселей, причём каждый пиксель может быть окрашен в один из 256 цветов. определите наименьший объем памяти (в кбайт) для хранения изображения экрана​...
larisa2912200 larisa2912200  15.05.2021 15:56
1. Сколько раз выполнится цикл? for k=20 downto 4 do ... k:=5; r:=15; for i:=0 to k*r do ... for c:=’Й’ to ‘И’ do… 2. Укажите синтаксически правильные операторы цикла: While (a:=10)...

Популярные вопросы