Var a,b:real;
begin
a:=5; b:=3;
writeln (a,'+',b,'=',a+b);
<span>end.</span>
Рассмотрим алфавит состоящий из следующих символов:0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
Алфавит состоит из 16 симолов (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
Мощность: 16
Uses crt;
var a,b,s:integer;
begin
readln(a);
readln(b);
s:=a*b;
writeln(s);
end.
А2=12
В2=4
С2=4
Соответственно D2 тоже должно быть равно 4 (по диаграмме)
То есть B2=8 (4*2=8)
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub