Предмет: Информатика,
автор: artyuginadiana
Помогите пожалуйста!!!! Срочно!!!
1. Дано натуральное число а. Если а - четное, то вывести косинус числа а и квадратный корень из числа а, иначе вывести синус числа а и квадрат числа а.
2. Найти решение квадратного уравнения, если известны его коэффициенты.
3. Ввести 5 действительных чисел. Найти их сумму.
4. Дано натуральное число n. Ввести n целых чисел. Найти их произведение.
5. Ввести последовательность ненулевых чисел. Найти произведение элементов последовательности.
6.
Ввести последовательность ненулевых чисел. Найти кол-во четных элементов последовательности.
7. Найти наибольший общий делитель натуральных чисел а и b.
Ответы
Автор ответа:
0
1)Var a:integer;
Begin
Read(a);
If a mod 2 = 0 then writeln(cos(a),' ',sqrt(a))
Else writeln(sin(a),' ', sqr(a));
End.
4) var i,n,k:integer;
Begin
For i:=1 to n do begin
Read(n);
K:=k*n;
End;
Writeln(k);
End.
Интересные вопросы
Предмет: История,
автор: gzifira
Предмет: Физика,
автор: callofcentr
Предмет: Математика,
автор: ggg8944yw
Предмет: Химия,
автор: Boberrr
Предмет: Алгебра,
автор: KatteKlin