Dim a As Integer
Dim b As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")<span>
If a = b Then MsgBox("1") Else MsgBox("0")</span>
Примем A3 за х , тогда формула будет выглядеть следующим образом (+ подставляем имеющиеся значения):
(2х-5)*8=40
делим обе части уравнения на 8 , тогда
2х-5=5
2х=10
х=5
Ответ : 5
program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.
1.
begin
var a,b:real;
read (a,b);
writeln ('Периметр = ',(a+b)*2,' Площадь = ',a*b);
end.