Предмет: Английский язык, автор: varfolomeev06

Составьте слова из букв:
1)urspdsrei
2)cnffo+1 буква незнаю какая
3)woopks
СРОЧНО!!!ПОЖАЛУЙСТА!!!

Ответы

Автор ответа: Samno
1
1) surprised - удивлённый
2) coffin - гроб
3) spooks - привидения
varfolomeev06: спасибо
Samno: Не за что!))) Если что не подойдёт, пишите!
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: География, автор: abc348976
Помогите пожалуйста, очень нужно !!​
2 года назад
Предмет: Информатика, автор: 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.
2 года назад
Предмет: Психология, автор: solovevaksenia377
Що відбувається з тілом якщо людина здивована?
2 года назад
Предмет: Биология, автор: yesitisme0
Какие растени обитают в почвенной и организменной среде!?
8 лет назад
Предмет: География, автор: Boroda4Xa4
Выберите правильный вариант ответа.
В приповерхностных водах Мирового океана общая масса всех живых организмов
наибольшая;
а) в арктическом климатическом поясе
б) в умеренном климатическом поясе
в) в тропическом климатическом поясе
г) в экваториальном климатическом поясе
8 лет назад