Развлечение работа проектирование учеба знакомтва
1. Нарисуем круги Эйлера.
2. Каждому участку присвоим букву.
3. Ищем заданные пункты и пишем значения (расположение каждого пункта на фото).
4. Математический путем ищем нужную букву.
Ответ: 70.
Решение смотри во вложении.
Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.
Uses Crt;
var N, p,i : integer;
begin
ClrScr;
Write(' N= '); ReadLn(N);
if N<=30 then
if N=0 then Writeln('2^0 = 1')
else
begin
p:=1;
for i:=1 to N do
P:=2*P;
end;
Writeln(' 2^', n,' =',P );
ReadLn;
end.
250-279-290-319-330-359-370-399-410