Правильный ответ Тепловоз
1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Распишем итерационно алгоритм выполнения программы:
a=20, b = 3.
b = div(a, b) + b // b = div(20, 3) + 3 = 6 + 3 = 9.
c = mod(a, b) + a // c = mod(20, 9) + 20 = 2 + 20 = 22.
Ответ: с = 22.
Бит - наименьшая единица измерения информации
1байт = 8 бит
1Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
и т.д, Гигабайт, Терабайт, Йотабайт
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.