задание №17 составьте 2 программы плиииз
5-9 класс
|
1)
uses crt;
var i,j,n,ans:integer;
mas:array[1..1000] of integer;
masmod9:array[1..1000] of integer;
begin
j:=1;
ans:=0;
writeln('Сколько чисел в массиве?');
readln(n);
for i:=1 to n do
begin
read(mas[i]);
if mas[i] MOD 9=0 then
begin
ans:=ans+1;
masmod9[j]:=mas[i];
j:=j+1
end;
end;
writeln(ans);
for i:=1 to j-1 do
write(masmod9[i],' ');
end.
2)
uses crt;
var i,n:integer;
ans:double;
begin
ans:=0;
read(n);
for i:=1 to n do
ans:=ans+cos(i)/sin(i)/i;
writeln(ans:5:3);
end.
Другие вопросы из категории
чайник из пластилина в натуральную величину
1) Дан линейный массив a[1..n], содержащий целые числа. Вычислите сумму нечетных чисел и распечатать номера таких чисел. 2) Дан линейных массив [1..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент положительный, то умножить его на два, а если отрицательный -- поменять знак на противоположный.
Читайте также
котенка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будут хранится значения веса котенка в течение мая.3)На основе этих заданий надо составить фрагмент программы на Паскале ввода исходных данных для массивов.
д количество чисел в последовательности, а затем сами числа.Количество чисел не превышает 1000. Введённые числа не превышают 30 000.Программа должна вывести одно число – количество двузначных чисел в заданной последовательности натуральных чисел.
фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста
Ид.Вес-Рост в см -100
Значение роста вводится с клавиатуры. Результат вывести в следующем виде:
Для мужчины ростом 165 см идеальный вес равен 65 кг.
2.По аналогии с заданием №1 составить программу, определяющую идеальный вес женщины по следующей формуле:
Ид.Вес=Рост в см - 100 -10% (от Рост в см - 100)
изучаемого языка программирования следующие выражения:γ m1m2/r^2 Задание 2 «Вычисления по известным формулам». Написать программу:Найти площадь трапеции по известным основаниям и высоте. Задание №3 «Выделение цифр в записи числа» Написать программу:Дано трехзначное число. Верно ли, что оно заканчивается цифрой 7? Задание №4 «Условный оператор» Написать программу:Даны два целых числа. Составить программу, которая большее число возводит в квадрат, а меньшее увеличивает на 10. Если числа равны, то вывести сообщение «ЧИСЛА РАВНЫ». Задание №5 «Циклы» Написать программу:Напишите программу, которая на отрезке от а до в, выводит на экран все четные числа, оканчивающихся нулем.