Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
На до взять удалить его и перезагрузить комп 2 ити к компьюторному мастеру
Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;
if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);
end.
#include <iostream>
#include <cmath>
int main()
{
int a;
int S;
std::cin >> a;
if (a > 5)
{
S = std::sin(std::cos(a*3-2)+std::tan(a/2.0));
std::cout << S << std::endl;
}
else if (a < 2)
{
S = std::atan(a) + std::sqrt(a) + std::pow(a,3);
std::cout << S << std::endl;
}
else
{
std::cout << "No solutions!" <<std::endl;
}
return 0;
}