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

В первом немного съехало, вот нормально - 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