#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;
}
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
<span>2)Найти все делители числа 1204.
</span>
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next<span>
MsgBox(msg)</span>
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a,k(0);
cout << "a="; cin >> a;
while (a > 0)
{
a /= 10;
k++;
}
cout << "Otvet: " << k << endl;
return 0;
}
Notepad (Notepad++, STDUViewer), Word (Writer), Paint (GIMP, Photoshop, XnView), Acrobat reader (STDUViewer), 7zip (winrar).
В скобках - программы, тоже открывающие данные файлы.
если в паскале то
var
n, i, sum, k : integer;
begin
read (n);
for i := 1 to n do
begin
read (k);
if k mod 15 = 0 then sum := sum + k;
end;
writeln (sum / n);
end.