<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
1600 - 80 = 1520 кількість учнів які займаються
1520 - 950 = 570 учнів,які не займаються кружками, а ходять в спорт. секції
1520 - 1052 = 468 учнів які не ходять в спорт.секції, а займаються кружками
950 - 468 = 482 учнів які можуть ходити одночасно
1052 - 570 = 482 учнів які можуть ходити одночасно
Відповідь: B)482;
Var a: array [1..100] of integer;
n, i, j: integer;
fout: text;
begin
assign(fout, 'output.txt');
rewrite(fout);
n := 10; //n - длина массива
for i := 1 to n do
a[i] := random(100);
for i := 1 to n do
write(fout, a[i], ' ');
writeln(fout);
j := 1;
for i := 2 to n do
if a[i] > a[j] then
j := i;
writeln(fout, 'max = ', a[j], ' max_ind = ', j);
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln(fout, 'min = ', a[j], ' min_ind = ', j);
close(fout);
<span>end.</span>
Несколько файлов могут передаваться по одной линии
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>