Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) в basic - составить не менее 2 видов циклов.

Input a
s=0
for i=a to 50
s=i^2+s
next i
print s

ИЛИ

input a
s=0
while a<=50
s=s+a^2
a=a+1
end while
print s

Dim a As Integer, i As Integer, s As String
a = InputBox("Введите число а")
For i = a To 50
s = s + "," + CStr(i * i)
Next
MsgBox s

a = InputBox("Введите число а")
i = a: s = ""
Do While i < 51
s = s + "," + CStr(i * i)
i = i + 1
Loop
MsgBox s

3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.

Я надеюсь, что я правильно поняла задание первой и второй задачи о:

Проверить, что две клетки стоят в одной строке или в одно строке, просто: надо проверить, что равны соответствующие иксы или игреки. Немного сложнее проверить, что две клетки стоят на одной диагонали. Так будет, если |x1 - x2| = |y1 - y2|.

Код:

# python 3
x1, y1 = map(int, input().split())
x2, y2 = map(int, input().split())
in_one_row = x1 == x2
in_one_col = y1 == y2
in_one_diag = x1 - x2 == y1 - y2 or x1 - x2 == y2 - y1
if in_one_row or in_one_col or in_one_diag:
    print("YES")
else:
    print("NO")