всего длина окружности составляет 2пr, а половина - пr
Ответ дал: Гость
Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin readln(x); if x > = 0 then x : = x - 50 else x : = x + 100; writeln(x) end. пример ввода: 0 пример вывода: -50
Ответ дал: Гость
var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Популярные вопросы