var
i, n : byte;
begin
repeat
write('введите n: ');
readln(n)
until n in [1..9];
writeln('таблица умножения');
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
writeln('таблица сложения');
for i := 1 to 9 do
writeln(n, ' + ', i, ' = ', n + i);
readln
end.
Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
Кодування
закодоване слово
улюблений предмет- информатика!
Function get_random(min,max:integer;n,x:boolean):integer;
begin
if n then min:=min+1;
if x then max:=max-1;
get_random := random(min,max);
end;
вызов фунциии:
[0;15),
get_random(0,15,false,true);
[0;15],
get_random(0,15,false,false);
[-15;15],
get_random(-15,15,false,false);
[10;15)
get_random(10,15,false,true);