Подготовка к практической работе по информатике в 7 классе. 24 января 2017 года

Примеры решения задач из упражнения на странице 79 

Program pr3_1;
var a,b:integer;
begin

a:=15;
b:=13;
writeln('a div b=' , a div b);
end.

Program pr3_2;
var a,b:integer;
begin
Readln(a);
Readln(b);
writeln('a div b=' , a div b);
end.

Program pr4;
var x:integer;
begin
x:=15;
writeln('x/2=' , x/2);
end.

Program pr5;
var c:integer;
begin
c:=15;
writeln('sqr(c div 5)=' , sqr(c div 5));
end.

Program pr6;
var c:integer;
begin
c:=15;
writeln('sqr(c mod 10)=' , sqr(c mod 10));
end.

 Program pr7;
var x:real;
begin
x:=15.75;
writeln('trunc(round(x))=' , trunc(round(x)));
end.

Program pr8;
var x:real;
begin
x:=15.75;
writeln('trunc(x)/2=' , trunc(x)/2);
end.