1. Напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 5. Программа получает на вход
количество чисел в последовательности N, а затем сами числа. Программа
должна вывести одно число — количество чисел, кратных 5.
Пример работы программы:
Входные данные 3 15 25 6 Выходные данные 2
2. Напишите программу, которая позволяет вычислить все значения функции
y=cos(x) – 3x +1 для
x (-2;+2)
с шагом 0,2. Программа должна вывести
таблицу значений x,y.
3. Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. Программа
получает на вход натуральные числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0. Программа должна вывести
одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.
Пример работы программы:
Входные данные Выходные данные 154
112
24
42
49
22
0
4. Напишите программу, которая определяет количество четных цифр в числе N.
Программа получает на вход число N (N описывается типом longint). Программа
должна вывести одно число – количество четных цифр числа.
Пример работы программы:
Входные данные Выходные данные 3
12564
название программы: Точность .ру
как будет работать: открываем сайт нам задают вопрос по типу цену какого товара вы хотите узнать или же впишите товар, вписываем название и нам выдают точную цену на товар (чтобы его продать или купить) если мы хотим купить товар нам дают ссылку на интернет магазин а если продать на сайт где можно продавать самим.
Доп. функции: мы можем сканировать фотографию товара и программа сама скажет какой цены должен стоить этот товар, можно предлагать программе все возможные цены она будет говорить нужна ли цена больше или меньше.
ну.. не знаю как получилось я просто составила название для программы как она будет работать и доп. функции надеюсь
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;
begin
read(x1,y1,x2,y2,x,y);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else
if (x<x1) and (y>y3) then writeln('NW') else
if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else
if (x>x2) and (y>y3) then writeln('NE') else
if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else
if (x>x2) and (y<y4) then writeln('SE') else
if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else
if (x<x1) and (y<y1) then writeln('SW');
end.
Пример ввода:
-2 1 4 4 -3 5
Пример вывода:
NW