Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
20
Объяснение:
В 1 бвйте 8 бит
160:8=20
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
program m;
uses crt;
var a,b,c,sum: integer;
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
Популярные вопросы