const N=1000;
var array[1..n] of integer;
i,k,p:integer;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
k:=0;
for i:=1 to p do
if (a[i] mod 4 =0) and (a[i] mod 7 <>0) then k:=k+1;
write(k);
end.
Ответ: Четверг
Лев вчера лгал. Он сказал правду, он вчера лгал
Единорог солгал т.к. сегодня четверг. Он тоже сказал что не врёт.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Е-0, П-1, Н-2, Ч-3, Ь-4. Сначала находим двоичные коды чисел(переводим эти числа из десятичной системы счисления в двоичную. Там, где после перевода остается только одна цифра, впереди приписываем ноль). Таким образом, получим:
Е-00, П-01, Н-10, Ч-11, Ь-100.
Закодируем слово ПЕЧЕНЬЕ в двоичном коде: 01 00 11 00 10 100 00(2). Переведем это число в восьмеричную систему счисления любым известным нам способом, получим 23120(8).