Ответы
Скажи что ПК сломался
Паскаль:
var a, s: integer;
begin
s:=0;
readln(a);
while a<>0 do begin
if (a mod 8 = 0) and (a > 9) and (a <100) then
s := s + a;
readln(a);
end;
writeln(s);
end.
Питон:
summi = 0
a = 1
while a != 0:
a = int(input())
if a == 0:
break
if a % 8 == 0 and 9 < a < 100:
summi += a
print(summi)
4 дня
Mole Kolenochka,
| Двигаемся вверх, пока не дойдем до верхнего края вертикальной стены
нц пока не слева свободно
вверх
кц
| Переместимся на одну клетку вниз и закрасим ее
вниз
закрасить
| Двигаемся вправо, пока не дойдем до второй вертикальной стены, по пути закрашивая все клетки
нц пока справа свободно
вправо
закрасить
кц
зачем ты сам не гуглишь все есть в интернете просто напиши что нужно и все делай
использовать Робот
алг
нач
нц пока слева стена
вверх
кц
вниз
нц пока справа свободно
закрасить
вправо
кц
закрасить
кон Все вопросы
Категории
Избранные
