Ответ:
Могу подсказать только 1 вариант:
Объяснение:
Module Module1
Sub Main()
Dim x As Single
Dim y As Single
Console.WriteLine("Введите координаты точки x ")
x = Console.ReadLine()
Console.WriteLine("Введите координаты точки y ")
y = Console.ReadLine()
If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области")
Console.ReadKey()
End Sub
End Module
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
for (int i=a; i<=b; i++) {
cout << i << "*" << i << " = " << pow(i, 2) << endl;
}
return 0;
}
Существуют три вида циклов на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until i>45;
write(s);
Лови. вроде, легко. что тут думать?)
заранее спасибо за лайки.