Помогите пожалуйста!!!! Срочно!!!
5-9 класс
|
1. Дано натуральное число а. Если а - четное, то вывести косинус числа а и квадратный корень из числа а, иначе вывести синус числа а и квадрат числа а.
2. Найти решение квадратного уравнения, если известны его коэффициенты.
3. Ввести 5 действительных чисел. Найти их сумму.
4. Дано натуральное число n. Ввести n целых чисел. Найти их произведение.
5. Ввести последовательность ненулевых чисел. Найти произведение элементов последовательности.
6.
Ввести последовательность ненулевых чисел. Найти кол-во четных элементов последовательности.
7. Найти наибольший общий делитель натуральных чисел а и b.
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.
Другие вопросы из категории
имеющего собственное имя www.
-скажите плиз ответ на этот вопрос (информатики 6 класс)
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Помогите перевести из десятичной системы счисления в двоичную(10->2) числа: 17; 343
и из двоичной системы счисления в десятичную(2->10) число: 1101111012
Как пройти 9 уровень в час кода ам няма помогите пожалуйста!!