1) ответ: Вус,
2)ответ: рука
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Var x, y: real;
begin
readln(x, y);
if ((x > 0) and (y > 0)) then writeln('true') else writeln('false');
<span>end.
В первой четверти X и </span><span>Y положительны)</span>
1 принтер
2 мышь
3 процессор
4 принтер
5 системный блок
6 системный блок
7 карта расширения
8 Delete
9 цветной принтер
Пояснения надо?