56) получив на вход число х, этот алгоритм печатает два числа a и b. укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 15. var x, a, b: integer; begin readln(x); a : = 0; b : = 0; while x > 0 do begin a : = a+1; b : = b+(x mod 100); x : = x div 100; end; writeln(a); write(b); end.

Наибольший х - 1500.

  Шартты форматтау түрлері

Ойлан

Күнделікті керекті әрі маңызды ақпараттарды әртүрлі дереккөздерден пайдалану үшін ерекшелеудің қандай түрлерін қолданасыңдар?

Кестедегі санды мәндерді (ең үлкен, ең кіші мәнін, ең көп және ең аз кездесетінін) көзмөлшерімен қалай ажыратады?

  Жаңа білім

  Excel программасында кестелерді шартты түрде форматтауға болады. Форматтаудың бұл әдісі деректерді талдауда, пішіндеуде өте қолайлы әдіс. Шартты форматтау – ұяшықтардағы деректерді белгілі шарттар бойынша форматтау. Қабылдауға оңтайлы болу үшін санды деректерді гистограмма, таңбалар және әртүрлі түстер арқылы беру тиімді. Бұл әдіс арқылы проблемалық жерлерге бірден визуалды түрде баға беруге болады. Шартты форматтауды іске қосу үшін «Бас» (Главная) құралдар тақтасында орналасқан «Мәнерлер» (Стили) бөліміндегі «Шартты форматтау (Условное форматирование) пәрмендерін (команда) орындасақ, «Шартты форматтау» диалогтік терезесі ашылады. «Шартты форматтау терезесінің» құрылғысымен!

Ну, в общем, лови решение.

{ FreePascal 2.6.4}
program test;
uses
    crt;
var
    a, b, c, d  : integer;
    f : longint;

procedure swap (var x : integer; var y : integer);
var z : integer;
begin
    z := x;
    x := y;
    y := z;
end;

function nod (m, n : integer) : integer;
begin
    while m<>n do begin
        if m>n
        then
            m:=m-n
        else
            n:=n-m;
    end;
    nod := m;
end;

function max (a,b : integer) : integer;
begin
    if a>b
    then max := a
    else max := b;
end;

function min (x, y, z : integer) : integer;
var m : integer;
begin
    m := x;
    if y<m then m := y;
    if z<m then m := z;
    min := m;
end;

function mypow (a, b : integer) : integer;
var e, f : integer;
begin
    f := 1;
    for e:=1 to b do f := f*a;
    mypow := f;
end;

function fact(a : integer) : longint;
var
    i : integer;
    res : longint;
begin
    res := 1;
    for i := 1 to a do res := res*i;
    fact := res;
end;

begin
    clrscr;
    writeln('Test of function SWAP');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    swap(a, b);
    writeln('A=', a, ', B=', b);
    writeln;

    writeln('Test of function NOD');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := nod(a, b);
    writeln('NOD(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MAX');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := max(a, b);
    writeln('MAX(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MIN');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    write('Input C: ');
    readln(c);
    d := min(a, b, c);
    writeln('MIN(', a, ',', b, ',', c, ')=', d);
    writeln;

    writeln('Test of function POW');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := mypow(a, b);
    writeln('POW(', a, ',', b, ')=', c);
    writeln;

    writeln ('Test of function FACT (not large than 12!)');
    write('Input A: ');
    readln(a);
    f := fact(a);
    writeln(a, '!=', f);
    writeln;
    readkey;

end.