program p;
var x: integer;
begin
writeln("Введите число: ");
readln(x);
if x>0 then x:=x*4 else x:=x*3;
writeln("Ответ: ",x); readln; end.
Ответ:B-1=8 B-2=5 B-3=6 B-4=9
Объяснение:
B-1:
А-1
Б-1
Е-1
Д-3
В-1
Г-4
Ж-4
З-8
B-2:
А-1
Б-1
Д-1
Е-1
В-2
Г-3
Ж-2
З-5
В-3:
A-1
B-3
D-2
E-1
C-3
F-1
G-3
H-6
B-4
A-1
E-1
D-2
B-2
C-4
F-3
G-5
2 номер таблица истинности
0 0
0 0
0 1
1 1
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
Центральное место в прикладной информатике занимает компьютер.