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
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
<span>#include<iostream>
#include<conio.h>
#include<string>
using namespace std;
int main()
{
int i;
cin >> i;
string s = "Sunday";
string s1 = "Monday";
string s2 = "Tuesday";
string s3 = "Wednesday";
string s4 = "Thesday";
string s5 = "Friday";
string s6 = "Suterday";
switch(i)
{
case 1:
cout << s << endl;
break;
case 2:
cout << s1 << endl;
break;
case 3:
cout << s2 << endl;
break;
case 4:
cout << s3 << endl;
break;
case 5:
cout << s4 << endl;
break;
case 6:
cout << s5 << endl;
break;
case 7:
cout << s6 << endl;
break;
}
getch();
return 0;
<span>}
</span></span></span>
===== PascalABC.NET =====
begin
var a := ReadReal('Введи значение синуса угла:');
var b := Sqrt(1 - a * a);
Print('Коснус этого угла равен', b)
end.
Пояснение: sin²x + cos²x = 1
решение во вложении, Вам нужна только первая страница
Какой нужен код?
если никакой то кисд или 5 10 19 12