R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
Правильный ответ 7
div - целочисленное деление, 36 / 5 = 7 и 1 в остатке
Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"