ПЛЗ Даны две окружности a=(xa,ya,ra) и b=(xb,yb,rb). Определить, пересекаются ли окружности, или нет, - id1561772820200915 от pervushina245 15.09.2020 05:33

Question

Информатика: ПЛЗ Даны две окружности a=(xa,ya,ra) и b=(xb,yb,rb). Определить, пересекаются ли окружности, или нет, или одна полностью накрывает собой другую. Окружности обязательно различны хотя бы в одном из параметров! Входные данные Дано 2 тройки целочисленных чисел на двух строках: окружность a−xa,ya,ra и окружность b−xb,yb,rb (−100≤xa,ya,xb,yb≤100 и 1≤ra,rb≤400) Выходные данные Необходимо вывести ответ на задачу: «a^b» - окружность a пересекает окружность b (но не покрывает) «a|b» - окружность a не пересекает

pervushina245 · Accepted Answer

var

n, max, count, contrl: integer;

begin

contrl := 0;

max := 0;

Writeln('Введите числа: ');

Readln(n);

while n <> 0 do

begin

Inc(count);

if (n mod 10 = 0) and (n > max) then max := n;

Read(n);

end;

Writeln('Введите контрольное значение: ');

Read(contrl);

Writeln('Получено: ', count, ' чисел');

Writeln('Получено контрольное значение: ', contrl);

Writeln('Вичисленное контрольное значение:: ', max);

if contrl = max then Writeln('Контроль пройден')

else Writeln('Контроль не пройден');

end.

MOGZ ответил