Информатика тема: робот
в бесконечном поле есть 2 стены расположеные параллельно друг другу одна на другой
левые края стен расположены на одном уровне
расстояние между стенами больше одной клетки
робот находится где-то под нижней горизонтальной стеной
:
закрасить клетки расположеные под горизонтальными стенами
™
™
нц пока ⬅️свободно
⬅️
кц

        '     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)

2)Найти все делители числа 1204.   

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 
  MsgBox(msg)

1)
 program numOp;
  var a,b:longint;
 begin
  write('a='); readln(a);
  write('b='); readln(b); writeln;
  writeln('Среднее арифметическое: ',((a+b)/2):0:2);
  writeln('Сумма: ',a+b);
  writeln('Разность: ',a-b);
  writeln('Произведение: ',a*b); readln;
 end.
2)
 program triangleInf;
  var
   kat1,kat2:longint;
   gip,s:real;
  begin
   write('Катет1: '); readln(kat1);
   write('Катет2: '); readln(kat2);
   gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
   writeln('Гипотенуза: ',gip:0:2);
   writeln('Площадь: ',s:0:2); readln;
  end.