Напишите программу в паскале, вычисляющую y=a^2+bx, где a,x - произвольные целые числа, введённые пользователем, b - целое число из [3;-3]. Используйте оператор Repeat
Ответы
Ответ дал:
1
Ответ:
Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение:
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад