75 дели на 2 столбиком. пока делитель не станет больше делимого
Не знаю, на ЯП тебе нужно или нет, но вот без:
Пример множества:
Множество грибов(разные грибы, без определенного порядка, но все это - ГРИБЫ).
10 элементов:
Элемент массива - 1
Яблоко на дереве(элемент яблони) - 2
Посевы на огороде(любой посев - элемент огорода) - 3
Буква в алфавите - элемент алфавита - 4
Любой человек из класса - элемент этого класса - 5
Волос на голове (элемент волосяного покрова головы) - 6
Любой палец на кисти(элемент множества пальцев на кисти) - 7
Месяц года(месяц - элемент множества месяцев календаря) - 8
Просто число(элемент множеств всех простых чисел) - 9
Любая сторона N-угольника(элемент множества всех сторон N-угольника) - 10.
Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)
Program zadanie1;
var
a,b,c: real;
begin
wtiteln('Vvedite A');
readln(a);
writeln('Vvrdite B');
readln(b);
writeln('Vvedite C');
readln(c);
if ((a>b)and(b>c))or((a<b)and(b<c)) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end;
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln('a=');
writeln('b=');
writeln('c=');
end.
Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.
Задача 2.
program Zadanie2;
var
A,B,C:integer;
begin
writeln('Введите числa A,B и C: ');
readln(A,B,C);
if (C = B) then
writeln('Номер числа, отличного от остальных: ',1)
else
if (A = C) then
writeln('Номер числа, отличного от остальных: ',2)
else
writeln('Номер числа, отличного от остальных: ',3);
end.
<span>
</span>
Так как число в системе счисления с основанием N содержит 4 цифры, то следует найти такое N, для которого выполняется условие N^3 < 31 < N^4.
2^3 = 8, 2^4 = 16 - не подходит
3^3 = 27, 3^4 = 81 - подходит
31(10) = 1011(3)
1011(3) = 1*3^3 + 1*3^1 + 1 = 27+3+1 = 31(10)