Ответ:
uses Robot;
begin
Task('if1');
while freefromright do right;
if wallfromup then
begin
down;
right;
up;
paint
end
else
begin
up;
right;
down;
paint
end
end.
//Pascal ABC.NET v3.1 сборка 1172
var
n: real;
begin
read(n);
writeln(n, ' суток=', n * 1440, ' минут');
writeln(n, ' минут=', n * 60, ' секунд');
end.
Пример ввода:
12
Пример вывода:
12 суток=17280 минут
12 минут=720 секунд
Вложенность отмечена отступами.
Начало
F(1)
Вывод 1
1 < 4 Истина
F(1+1=2)
Вывод 2
2 < 4 Истина
F(2+1=3)
Вывод 3
3 < 4 Истина
F(3+1=4)
Вывод 4
4 < 4 Ложь
<u>Конец
</u>
F(3+3=6)
Вывод 6
6 < 4 Ложь
<u>Конец</u>
F(2+3=5)
Вывод 5
5 < 4 Ложь
<u>Конец
</u>
F(1+3=4)
Вывод 4
4 < 4 Ложь
<u>Конец
</u>
<u>Конец</u>.
1+2+3+4+6+5+4 = 25
<em>Трассировка</em><span> — это операция, позволяющая определить адреса серверов, через которые проходят данные, получаемые браузером, а также скорость передачи данных каждым из серверов. Трассировка бывает полезна, например, когда необходимо выяснить причину долгой загрузки веб-сайта. Чтобы выполнить трассировку, откройте терминал командной строки, наберите команду следующего вида и нажмите клавишу «Enter»</span>
Найти лишнее слово текст,число,график,бумага;магистраль,вестибюль,лазурь, бандерольозимь,цитадель,фланель,панцирьвинчестер,диске
Инна1 [406]
число
лазурь
Панцирь (м.р.)
<span>джойстик, графопостроитель, дискета - остальное все относится к предметам комп-ра</span>