4 года назад

Нужно написать алгоритм слове слепить снеговика

1 ответ:

Eirenar [32K]4 года назад

0 0

1. Скатать большой по радиусу ком снега.
2. Скатать второй ком немного поменьше.
3. Поставить второй ком снега на первый.
4. Скатать третий маленький ком.
5. Поставить его на второй ком.
6. Надеть сверху на третий ком ведро.
7. Сделать из моркови нос снеговику, вставив в третий ком.
8. Вставить вместо глаз угольки(или бусинки, камни).
9. Вместо рук вставить ветки во второй ком

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

Ребят очень нужно решить задачу.ДАЮ 75 БАЛЛОВ + ПЕРВОМУ КТО ОТВЕТИТ ЛУЧШИЙ ЗАСЧИТАЮ. ПИШИТЕ НА PASCAL ABC!!!! В компьютер поступ

-Михаил- [5.5K]

Var
    best, m, s,i: integer;

begin
    best := 10000000;
    for i:= 1 to 3 do begin
        write('min sec = ');
        readln(m, s);
        if best > m * 60 + s then best := m * 60 + s;
    end;

    writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.

0 0

4 года назад

Как в Паскале зациклить программу? То есть как выполнять одну и ту же операцию много раз, используя один раз введенные данные в

Пушинко [16]

Это делается с помощь цикла for либо цикла while либо цикла repeat
Цикл for:
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

for i := 1 to n do
write ('(*) ');

readln
end.

Цикл While
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;

readln
end.

Цикл repeat
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;

readln
end.

0 0

3 года назад

Дана последовательность чисел заканчивающихся 0.Найдите произведение этих чисел

Ariko50022

Произведение чисел будет равно 0

0 0

3 года назад

Помогите пожалуйста с информатикой

kostyan08

A AND (NOT(B))
как я поняла, надо записывать так :)

0 0

4 года назад

Дано целое число. Напишите программу, которая выводит на экран последнюю букву данного числа, потом вводит её в квадрат и выводи

Alexsis [189]

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.

<u><em>Тестовое решение:</em></u>
n= 346427
7
49

0 0

4 года назад