Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 10 до 20?
Program djonik2;
vara, 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
Вроде бы так...
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
