Program a;var d:integer;x,y:real;beginreadln(x,y);write('действие: ');readln(d);case(d) of1: x:=x+y;2: x:=x-y;3: x:=x*y;4: x:=x/y;end;write(x);end.
program a;var d:integer;m:real;beginreadln(m);write('единицы: ');readln(d);case(d) of1: write(m,'кг');2:begin m:=m/1000000; write(m,'кг');end;3:begin m:=m/1000; write(m,'кг');end;4:begin m:=m*1000; write(m,'кг');end;5:begin m:=m*100; write(m,'кг');end;end;end.
Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
Аалфавитный подход позволяет вычислить количество информации, содержащейся в тексте, сложив информационные объёмы каждого символа, при этом содержание текста не учитывается.
Примеры переводов в разные сс:
(1) 0,101_2 = 0 * 2^0 + 1 * 2^-1 + 0 * 2^-2 + 1 * 2^-3 = 1/2 + 1/8 = 5/8 = 0.625_10
(2) 0,6_8 = 0 * 1 + 6/8 = 12/16 = 0.C_16
(3) 0.125_10 = 1/8 = 2^-3 = 0.001_2
(4) 0.4_16 = 4/16 = 2/8 = 0.2_8
Остальные переводы выполняются аналогично. Получившаяся таблица во вложении.
переменные объявлены в области видимости функции if , а это значит , что когда функция завершает свое выполнение , все переменные из ее области видимости удаляются (то же и с циклами, и с функциями , и с классами и т.д.)
крч инициализируй нулями эти три переменные в начале программы