Народ кто хорошо знает Информатику ???токо чесно решите програму на паскале)Составьте программу,каторая по задоннаму a исследует корни уравнения aх=5 и выводит на экран значение высленного корня либо сообщение "Корней нет"

1

Ответы и объяснения

2012-09-23T10:06:14+04:00

Сделаю операцию только с целыми числами.

 

Program fff;

label 1;

var a,y,x,i:integer;

Begin

 Writeln('введите а'); read(a);

 For x:=1 to 1000 do

  if a*x=5 then begin

             writeln(x);

             goto 1;

                      end;

Writeln('Корней нет!');

1: readln

end.

 

Алгоритм такой: проверяем выражение на равенство, если правильно, тогда пишем корень и заканчиваем программу. если цикл завершился, значит не одно число не совпало и мы пишем "корней нет".