Ответы на вопрос:
1)
Var
a, b : integer;
x: real;
Begin
Write('a, b:'); Readln(a,b);
x:=b/a;
Write('x=',x);
Readln;
End.
3)
Var
x,a, b: integer;
Begin
Write('Kg='); Readln(x);
Write('1Kg skolko rubley='); Readln(a);
b:=a*x;
Write('V obshem potracheno ',b,' rubley');
Readln;
End.
Объяснение:
Второе не получилось,
Я смог
Международная кодировка ASCII. Unicode – стандарт, согласно которому для представления каждого символа используется 2 байта. (можно кодировать математические символы, русские, английские, греческие, и даже китайские). C его можно закодировать не 256, а 65536 различных символов.
Популярно: Информатика
-
MishkaBra05.07.2020 15:42
-
Fjk123cg25.07.2021 05:59
-
77839224.09.2021 11:30
-
Maksimka08716.01.2021 10:21
-
Gulya5555512.06.2022 12:43
-
788SOS11101.06.2021 10:56
-
с1413а13.06.2023 18:14
-
CrazyMashin19.04.2020 16:24
-
рикки812.04.2020 16:12
-
Dshmz26.08.2020 05:23