Question

Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 10 до 20?

Answer 1

program djonik2;
var a, b, c: real;
 y,x: real;
 begin
x:=10; 
readln(a,b ,c);
 writeln('                    ');
  writeln('     Y    ');
  writeln('                   ');
repeat
y:=a-b*c;
writeln(y);
until x>20;
end.

VB:
Sub Find()
Dim C, Y As Integer,
 C= InputBox("Введите значение переменной C", "Ввод значеня переменной C") 
     y = 78-24*C       
MsgBox y,  "Вывод значений"
End Sub
Вроде бы так...