Вычислите, чему равняется значение переменной с на выходе из линейного алгоритма: а = 2 в = 3 а = а * в в = а + в с = 2 * в / а * 3 в ответе укажите число.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var s:=Arr('первое', 'второе','третье','четвертое','пятое'); var p,r:real; var c:char; Write('Введите первое число: '); Readln(r); for var i:=0 to 3 do begin Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,'); Write('c) умножить, d) разделить): '); Readln(c); Write('Введите ',s[i+1],' число: '); Readln(p); case c of 'a':r+=p; 'b':r-=p; 'c':r*=p; 'd':r/=p; end; Writeln('Результат: ',r) end end.
код на vbscript
Sub Zadanie18007865()
A = 2
B = 3
A = A * B
B = A + B
C = 2 * B / A * 3
MsgBox c
End Sub
Call Zadanie18007865()