Предмет: Информатика,
автор: ZakkDC
Решите 8 и 9 задание пожалуйста.Паскаль
Приложения:
Ответы
Автор ответа:
0
Задание №8
var
x,y,r: real;
begin
write('Введите X:');readln(x);
write('Введите Y:');readln(y);
write('Введите R:');readln(r);
if sqr(x)+sqr(y)<= sqr(r) then writeln('1')
else writeln('0');
end.
Задание №9
var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>0 then writeln('x = ',-b/a)
else writeln('решения нет');
end.
var
x,y,r: real;
begin
write('Введите X:');readln(x);
write('Введите Y:');readln(y);
write('Введите R:');readln(r);
if sqr(x)+sqr(y)<= sqr(r) then writeln('1')
else writeln('0');
end.
Задание №9
var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>0 then writeln('x = ',-b/a)
else writeln('решения нет');
end.
Похожие вопросы
Предмет: Математика,
автор: azik666gt
Предмет: Русский язык,
автор: GuldanaAmanbai
Предмет: Математика,
автор: taenemored
Предмет: Обществознание,
автор: Dashka3333444
Предмет: Химия,
автор: kiskaaa