Предмет: Українська мова, автор: ліза206

слова з префіксами роз без розі

Ответы

Автор ответа: Ekaterinova

Розвести, роз'єднати, розкрити, розвернути, розбити, розплести, розкидати, розробити
Безобов'язковий, безвізовий, безподатковий
Розіслати, розірвати

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: География, автор: abc348976

Помогите пожалуйста, очень нужно !!

1 год назад

Предмет: Информатика, автор: Someone2x

В числах Армстронга та Щасливих переробити функції на процедури.
Дам 80 балів.

Число Армстронга — натуральне число, яке дорівнює сумі
своїх цифр, піднесених до степеня, що дорівнює кількості його цифр. Іноді щоб вважати число таким, достатньо, щоб степені,
до яких підносяться цифри, були рівні m — тоді число можна назвати m-самозакоханим.
Наприклад: 1³ + 5³ + 3³ = 153 або 407=4 3 +0 3 +7 3 , де m = 3 (розрядність числа).
Щасливими будемо називати числа, у яких парна розрядність і сума цифр лівої половинки числа дорівнює сумі
цифр правої половинки числа.
Наприклад: 382571 3+8+2=13 5+7+1=13

Задачі:
{числа Армстронга 153,370… }
VAR
n,i:longint;
Function Roz(a:longint):byte;
VAR
k:byte;
BEGIN
k:=0;
While a>0 do
BEGIN
a:=a div 10;
k:=k+1;
END;
Roz:=k;
END;
Function St(v,m:byte):longint;
VAR
y:longint;
j:byte;
BEGIN
y:=1;
For j:=1 to m do
y:=y*v;
St:=y;
END;
Function Arm(x:longint):boolean;
VAR
k,c:byte;
s,b:longint;
BEGIN
Arm:=false;
k:=Roz(x);
b:=x;
s:=0;
while b>0 do
BEGIN
c:=b mod 10;
s:=s + st(c,k);
b:=b div 10;
END;
If s=x then Arm:=true;
END;
BEGIN
Writeln('Vvedite Chislo');
Readln(n);
For i:=10 to n do
If Arm(i) then Write(i,', ');
Readln
END.

{ Щасливі числа 22…1102…1120…}
VAR
n,i:longint;
Function Roz(a:longint):byte;
VAR
k:byte;
BEGIN
k:=0;
While a>0 do
BEGIN
a:=a div 10; k:=k+1;
END;
Roz:=k;
END;
Function St10(m:byte):longint;
VAR
y:longint;
j:byte;
BEGIN
y:=1;
For j:=1 to m do y:=y*10;
St10:=y;
END;
Function Sum(a:longint):byte;
VAR
S:byte;
BEGIN
S:=0;
While a>0 do
BEGIN
S:=S+a mod 10; a:=a div 10;
END;
Sum:=S;
END;
Function Lucky(x:longint):boolean;
VAR
k:byte;
d,xl,xr:longint;
BEGIN
Lucky:=false;
k:=Roz(x);
If k mod 2=0 then
BEGIN
d:=St10(k div 2);
xl:=x div d;
xr:=x mod d;
If Sum(xl)=Sum(xr) then
Lucky:=true;
END;
END;
BEGIN
Writeln('Vvedite Chislo');
Readln(n);
For i:=10 to n do
If Lucky(i) then Write(i,', ');
Readln
END.

1 год назад

Предмет: Психология, автор: solovevaksenia377

Що відбувається з тілом якщо людина здивована?

1 год назад

Предмет: Биология, автор: yesitisme0

Какие растени обитают в почвенной и организменной среде!?

7 лет назад

Предмет: География, автор: Boroda4Xa4

Выберите правильный вариант ответа.
В приповерхностных водах Мирового океана общая масса всех живых организмов
наибольшая;
а) в арктическом климатическом поясе
б) в умеренном климатическом поясе
в) в тропическом климатическом поясе
г) в экваториальном климатическом поясе

7 лет назад