Begin write('Введите целое положительное число m: '); var m := ReadInteger; assert(m > 0); var s := 0; while m > 0 do begin s += m mod 10; m := m div 10; end; writeln('Сумма цифр числа m равна ', s); end.
//PascalABC.Net var r,x,y:real; c:string; begin Write('Введите R: '); Read(r); Write('Введите координаты x и y: '); Read(x,y); if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности' else c:='Точка не лежит на окружности'; Writeln(c) end.
Тестовые решения: Введите R: 2 Введите координаты x и y: 0 2 Точка лежит на окружности
Введите R: 2 Введите координаты x и y: -1.5 0.7 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 1 1 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 3 0 Точка не лежит на окружности
write('Введите целое положительное число m: ');
var m := ReadInteger;
assert(m > 0);
var s := 0;
while m > 0 do begin
s += m mod 10;
m := m div 10;
end;
writeln('Сумма цифр числа m равна ', s);
end.