1). var
a:integer;
b,c,x:real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end.
2). Первое-выведется сумма цифр равная "C"
второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3,61.... вроде все)))
7210 / 2 = 3605 (0)
3605 / 2 = 1802 (1)
1802 / 2 = 901 (0)
901 / 2 = 450 (1)
450 / 2 = 225 (0)
225 / 2 = 112 (1)
112 / 2 = 56 (0)
56 / 2 = 28 (0)
28 / 2 = 14 (0)
14 / 2 = 7 (0)
7 / 2 = 3 (1)
3 /2 = 1 (1)
1/2 = 0 (1)
записываем остатки в обратном порядке и получаем
1110000101010
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
А) произведение отрицательных элементов с четными номерами