Question

по информатике

1. Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a := 347;b := (a div 100) * 10 + 9;a := (10 * b – a) mod 100;

2. Определите значение целочисленных переменных x и y после выполнения фрагмента программы: x:=5000; y:=67; x:=x div y; y:=x mod у; В ответ запишите сумму x и y.

3. var x:integer; begin readln(x); x := (x mod 100) div 10; writeln(x);end.Определите, что будет напечатано при значениях x=100;87;65040;355345;7656456. Писать по порядку через пробел.

4. varn: longint; begin read(n); writeln(n div 100 + n div 10 mod 10 + n mod 10); end. Определите, что будет напечатано при значениях n=154,453, 4543256, 432423, 64352345. Писать по порядку через пробел

Answer 1

1) a=43, b=39

2) x=74, y=7, сумма=81

3) 0. 8. 4. 4. 5

4) 10. 12. 45443. 4329. 643532