1) Какое значение будет принимать переменная Y после выполнения фрагментов программы?
a) Var Y, X: integer;
Begin
Y: = 1;
X: = 12;
Repeat
Y: = Y*X;
X: = X – 2;
Until X<7;
Writeln (‘Y=’,Y);
End.
б) Var Y, X: integer;
Begin
Y: = 1;
X: = 16;
Repeat
Y: = X*X;
X: = X – 4;
Until X<=0;
Writeln (‘Y=’,Y);
End.
2) Определить значение переменной у после выполнения фрагмента следующей программы:
Var y:real;
i:integer;
begin
y:= 1;
i:= 2;
repeat
i:=3*i;
y:=y+i
until i > 7;
Writeln ('y=',y);
End.
print("№1")
a = 37*(25+87.5)-17*(4.5+1.9)
print("ответ: ",a)
print("")
print("№2")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
c = float(input ("Введите число c: "))
d = float(input ("Введите число d: "))
a = ((a*b)/(c+d**4))
print("ответ: ",a)
print("")
print("№3")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
c = float(input ("Введите число c: "))
a = ((a+2*b-3*c)/(5*a+4))
print("ответ: ",a)
print("")
print("№4")
a = float(input ("Введите число a: "))
b = float(input ("Введите число b: "))
a = ((a+b)/(a-b))+((a*b)/(3.14))
print("ответ: ",a)