что то типо такого??? напишите пожалуйста нормально или фото.
var x,y:integer;
begin cls;
read(x,y);
if x = y then
write(x)
else if x > y then x:=x-y else y:=y-x;
readln;
end.
1.Попробуй вставить другую картинку
2.Переустанови word
3.Измени размер картинки в paint'е
Вес одного символа равен 5 бит (т.к. 32=2^5)
3*5=15 бит
Ответ: 15 бит
Var a,a1,b: Real;
begin
writeln('Введите синус угла а, сторону a, сторону b');
readln(a,a1,b);
writeln('S=',(1/2)*a1*b*sin(a));
writeln('P=',a+b);
end.
Байт умножь на 1024, а бит 8192