//Pascal ABC.NET v3.0 сборка 1111

Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>

Пример ввода:
10
Пример вывода:
One more burger
</span>

0 0

3 года назад

Помогите. Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно, ...

Жёще [50]

"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите помогите пожалуйста

Veritifi [51]

1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка

0 0

1 год назад

Прочитать ещё 2 ответа