Написал в паскале,
что-то не понятно - пиши.
Внизу показывается пример работы.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Животный мир земного шара велик и разнообразен. Животные населяют всю природу вокруг нас. Животные —живые существа. Слово «существо» произошло от слова «существует», то есть живёт. Вот и получается, что любое животное живёт и, так же как человек, дышит, передвига–ется, питается, заботится о своём потомстве и строит для себя жилище — «дом».
V=urta
u=16кГц=16000Гц
r=24/8=3(какое бы число ни было дано, всегда делим на 8)
t=3*60=180 с.
a=1(т.к. одноканальная, если двухканальная, то 2)
V=16000*3*180*1=8640000 байт.
8640000/1024=8437,5 Кбайт.
8437,5/1024=8.2 Мбайта.
Ответ: 2(8 Мбайт).
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
n,d1,d2,d3:integer;
begin
Write('n='); Read(n);
d1:=n div 100; d3:= n mod 10;
d2:=(n div 10) mod 10;
if (d1=d2) or (d1=d3) or (d2=d3) then Writeln('Да')
else Writeln('Нет')
end.
<u><em>Тестовые решения:</em></u>
n=123
Нет
n=121
Да
n=222
Да