СРОЧНО ПОЖАЛУЙСТА
Основы программирования

Приложения:

Ответы

Ответ дал: Аноним
0

Ответ:

1) program control 1;

uses crt;

var x,y,sum:integer;

begin

x:=5; y:=7;

sum:=x+y;

writeln('сумма x и y равна ', sum);

end;

2) longint, real;

3) 10/2 результат 5;

3>2 и 5<6 результат True;

round(7/3)=2, pred(-5)=-6, succ(-12)=-11 результат -11;

ord('5')=53, ord('3'=51), odd(5) нечетное, odd(3) нечетное   результат всего true;

Объяснение:


Аноним: после begin ClrScr; нужно добавить
Вас заинтересует