1 - В
2 - Д, Е
3 - Г
4 - А, Б
Записывая телефон в записную книжку вы сохраняете номер абонента(хранение)
Создавая плейлист вы составляете сборник музыкальных файлов, упорядычивающий муз.файлы (храните)
Рассказывая доклад на конференции вы делитесь своим докладом с другими(передача)
Занимаясь поиском слова в словаре вы обрабатываете информацию, предоставленную в словаре(обработка)
Просматривая видео на уроке вы получаете новую информацию (приём)
Посещая музей вы разглядываете экспонаты и знакомитесь с их историей (приём)
PascalABC.NET
function IsPrime(n:integer): boolean; // простое?
begin
if n <= 1 then
begin
Result := False;
exit
end;
Result := True;
var (j, r) := (2, Round(Sqrt(n)));
while Result and (j <= r) do
if n mod j = 0 then
begin
Result := False;
exit
end
else
j += 1;
end;
function IsHyperPrime(n: integer): boolean; // гиперпростое?
begin
Result := False;
var k := 10;
while n > 10 do
begin
n := n div 10;
if not IsPrime(n) then exit
end;
Result := True
end;
begin
var (a, b) := ReadInteger2;
var found := False;
foreach var n in Range(a, b) do
if IsPrime(n) then // найдено простоe число
if IsHyperPrime(n) then
begin
found := True;
n.Print
end;
if not found then
Write(0)
end.
иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом