Напишите программу, которая решает линейное уравнение (ax + b = 0). Значение коэффициентов получаем от пользователя. Организуйте
диалог программы с пользователем. Вставьте код.Питон

254

279

Посмотреть ответы 1

Ответы на вопрос:

19nadoeloikat1niki

Информатика

4,4(78 оценок)

Program a1; var a,b: array [1..10] of integer; n,i,k,sum,c: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; readln (n); for i: =1 to 10 do begin k: =a[i]; while k> 0 do begin sum: =sum+(k mod 10); k: =k div 10; end; f (n=sum) then begin inc(c); b[c]: =a[i]; end; end; for i: =1 to c do write(b[i]: 2); end.