2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
if (a[i] div 100) = 0 then
kol := kol + 1;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
a[i] := random(10, 100);
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
writeln('Таких пар : ', kol);
#include <iostream>
#include <math.h>
using namespace std;
int main(){
int x1,y2,x2,y2, r1, r2;
cin >> x1 >> y1 >> endl; //вводим координаты первой точки
cin >> x2 >> y2 >> endl; //вводим координаты второй точки
r1 = sqrt(x1*x1 + y1*y1); //находим расстояние от первой
r2 = sqrt(x2*x2+y2*y2) //от второй
if (r1>r2){
cout << "Точка 1 ближе к началу координат";
}
else{
cout << "Точка 2 ближе к началу координат";
else if (r1=r2){
cout << "Эти точки равны"
return 0;
2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 10 do begin
if (a[i] div 100) = 0 then
kol := kol + 1;
end;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(10, 100);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
kol := kol + 1;
end;
writeln();
writeln('Таких пар : ', kol);
end.
#include <iostream>
#include <math.h>
using namespace std;
int main(){
int x1,y2,x2,y2, r1, r2;
cin >> x1 >> y1 >> endl; //вводим координаты первой точки
cin >> x2 >> y2 >> endl; //вводим координаты второй точки
r1 = sqrt(x1*x1 + y1*y1); //находим расстояние от первой
r2 = sqrt(x2*x2+y2*y2) //от второй
if (r1>r2){
cout << "Точка 1 ближе к началу координат";
}
else{
cout << "Точка 2 ближе к началу координат";
}
else if (r1=r2){
cout << "Эти точки равны"
}
return 0;
}