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) <br> s:=6; if s<0 then s:=s+10; s:=s+1; WriteLn (s) <br> 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 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.