Любое двухзначное число записывается в виде 10*a+b, где а - число десятков (старшая цифра), b - число единиц (младшая цифра). Тогда условие будет иметь вид: (a+b=n) или (a=n) или (b=n), где а меняется от 1 до 9, b меняется от 0 до 9.
var n, a, b: integer;
begin Write('Введите число n -> '); Readln(n); for a := 1 to 9 do for b := 0 to 9 do if (a + b = n) or (a = n) or (b = n) then Write(a, b, ' '); Writeln end.
Любое двухзначное число записывается в виде 10*a+b, где а - число десятков (старшая цифра), b - число единиц (младшая цифра). Тогда условие будет иметь вид: (a+b=n) или (a=n) или (b=n), где а меняется от 1 до 9, b меняется от 0 до 9.
var n, a, b: integer;
begin Write('Введите число n -> '); Readln(n); for a := 1 to 9 do for b := 0 to 9 do if (a + b = n) or (a = n) or (b = n) then Write(a, b, ' '); Writeln end.
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
end.