Uses crt;
var a,b,c,Sk,Sp:real;
Begin
Clrscr;
writeln('vedut a');
readln(a);
writeln('vedut b');
readln(b);
writeln('vedut c');
readln(c);
sk:=a*a;
sp:=b*c;
if sk>sp then
writeln('plocha kvadrata bolhe');
if sk<sp then
writeln('plocha pramoygolnuka bolhe');
readln;
End.
A1=2
A2=4
A3=5
A4=3
Я бы сказал какая это таблица, но там не видно все
Просто подставь и сразу будет видно какая таблица
Sub Z1()
Dim x As String
f = True
x = InputBox("Введите слово: ")
For i = 2 To Len(x) - 2 Step 2
If Mid(x, i, 1) <> Mid(x, i + 2, 1) Then f = False
Next i
If f = True Then
MsgBox ("Условие выполняется")
Else: MsgBox ("Условие не выполняется")
End If
<span>End Sub</span>
№1 Ответ: 3)
№2 Ответ: 1)
№3 Ответ: 2)
<span>2) С:\Расписание......................</span>