• 1. В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе - произведение. После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА. Написать программу.

    2. Определить, что будет напечатано при выполнении следующих фрагментов программ

    ФРАГМЕНТ ПРОГРАММЫ
    ЧТО НА ЭКРАНЕ

    a:=10; if a>2 then WriteLn ('!!!') else WriteLn ('!')


    a:=4; if a>5 then a:=a+10 else a:=a-1; WriteLn (a)


    s:=6; if s-8<0 then s:=s+10; WriteLn (s)


    s:=6; if s<0 then s:=s+10; s:=s+1; WriteLn (s)


    k:=20; k:=k+10; if k+10<>30 then k:=8 else k:=k-1; WriteLn (k)


    k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k)


    p:=1; if p>0 then p:=p+5; Write (p); if p>10 then p:=p+1; Write (p)




    3. Определите новое значение переменной C:

    a:=20;
    b:=7;
    a:=a - b*2;
    if a>b then c:=a + b
    else c:=b-a;
    Ответ: C=

    4. Определите новое значение переменной С:
    c:=1;
    if (a>0) and (b<a) then c:=a
    else c:=b;
    if (a<0) and (b>=a) then c:=3*c
    else c:=2*c;
    при а= 5; b=7 Ответ: С=
    при a= -5; b=7 Ответ: С=

    5. Вычислить:
    int(-5,89)
    int(0,53)
    round(-5,8)
    round(5,2)
    frac(-17,4)
    frac(0,32)
    trunc(-17,4)
    trunc(15,2)
    45 div 4
    15 mod 8
    (489 div 10) mod 10

Ответы 2

  • В первом немного съехало, вот нормально - var a,b:integer; begin readln(a,b); if a>b then writeln(a+b,' задача решена') else writeln(a*b,' задача решена'); end.
  • 1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 663) 14) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
    • Автор:

      nikikent
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years