program aaa;
var a,b: integer;
begin
writeln ('введите значение');
read(a);
b:=a mod 3;
writeln ('b=',b);
end.
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.
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.
Комментариев нет:
Отправить комментарий