Предмет: Информатика, автор: ZakkDC

Решите 8 и 9 задание пожалуйста.Паскаль

Приложения:

Ответы

Автор ответа: vladmor
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.


Похожие вопросы