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.... вроде все)))
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
Win7: основная ос в мире создана в 2009 году. Имеет более защищенный код чем у win xp.
win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp.
win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)
Ответ:3 целых 35/10........