// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('Введите число'); var a:=ReadInteger('a='); var s:=0; while n>0 do begin s+=n mod 10; n:=n div 10 end; if s>a then Write('Верно') else Write('Неверно'); Writeln(', что сумма цифр числа больше ',a) end.
Тестовое решение Введите число 46823 a= 24 Неверно, что сумма цифр числа больше 24
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
begin
var n:=ReadInteger('Введите число');
var a:=ReadInteger('a=');
var s:=0;
while n>0 do begin s+=n mod 10; n:=n div 10 end;
if s>a then Write('Верно') else Write('Неверно');
Writeln(', что сумма цифр числа больше ',a)
end.
Тестовое решение
Введите число 46823
a= 24
Неверно, что сумма цифр числа больше 24