Var
a, h:integer;
Begin
write('Основание параллелограмма: ');
readln(a);
write('Высота параллелограмма: ');
readln(h);
writeln('Площадь параллелограмма: ', a*h);
end.
Mod(23,10) = 3
div(23,10) = 2
3*10+2 = 32
Бит-1, Байт-2, Килобайт-3, Мегабайт-4, Гигабайт-5.
<span>program nomer;
var
N:integer;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end<span>.</span></span>