Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.
1)1 байт=8 бит
2)22•8=176 бит
3)176:8=22 байта
Ответ: фраза Пушкин - наше всё! займёт 22 байта.
1)2010211
2)1109900009
3)989219,791208
4)10111212111
Var
a,b,c:integer;
begin
Write('Введите три целых числа: '); Readln(a,b,c);
if a>b then
if b>c then Writeln(a*b) else Writeln(a*c)
else
if a>c then Writeln(a*b) else Writeln(b*c)
end.
<em><u>Тестовое решение:</u></em>
Введите три целых числа: 5 -2 7
35