вторник, 7 февраля 2017 г.

Отрабатываем команды

program  aaa;
var a,b: integer;
begin
writeln ('введите значение');
read(a);
b:=a mod 3;
writeln ('b=',b);
end.


program  aaa;
var a,b: integer;
begin
writeln ('введите значение');
read(a);
b:=a div 4;
writeln ('b=',b);
end.

program  aaa;
var a,b: integer;
begin
writeln ('введите значение');
read(a);
b:=sqr(a);
writeln ('b=',b);
end.

program  aaa;
var a,b: integer;
begin
writeln ('введите значение');
read(a);
b:=abs(a);
writeln ('b=',b);
end.

program  aaa;
var a,b: real;
begin
writeln ('введите значение');
read(a);
b:=trunc(a);
writeln ('b=',b);
end.
program  aaa;
var a,b: real;
begin
writeln ('введите значение');
read(a);
b:=frac(a);
writeln ('b=',b);
end.



Комментариев нет:

Отправить комментарий