Превратить одно слово в другое всякий раз заменяя по одной букве:ночь 4 слова

Знания

Информатика

1 ответ:

Schumacher [11]4 года назад

0 0

Ночь, ноль, моль, боль .

Читайте также

ХЕЛП, срочно надо! 50 БАЛЛОВ

user2

Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.

При x = 8, y = 64.

0 0

4 года назад

Срочно Какое количество байт содержит сообщение объемом 3 ГБ (ГигаБайт)

Юлияоз [7]

Ну если переводить в объем информации то получается 3е+9

0 0

4 года назад

Құжаттың өлшемін қалай орнатады?

Михаил Соловьев [7]

Қажаттын өлшемін қалай орнатады

0 0

4 года назад

Предмет который человек может и слышать и трогать нюхать попробывать увидить

zovut-idi [13]

Это объект любой окружающего мира

0 0

4 года назад

Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подп

DiSakara

Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
    found:=(n mod 2=0);
    p:=3;
    while (not found) and (sqr(p)<=n) do
      begin found:=(n mod p=0); p+=2 end;
    IsPrime:=not found
    end
end;

var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
    if IsPrime(i) then Write(i,' ');
Writeln
end.

0 0

4 года назад