A:=sqr(4)
b:=abs(-11)
c:=a
sqr(x) - возводит x в квадрат
abs(x) - модуль из x
:= - знак присваивания
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
writeln('answer is: ', a1+a2);
end.
Извини, только в паскале шарю)) (знаю решение в паскале)
5.5 8.8 9.8 11.6 12.7 11.7 11.2 9.3 10.3 10.4 7.4 7.2 5.2 5.3 6.3 6.9 7.8 2.8 2.9 3.9 3.6 4.5 А вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4,8... и.т.д если единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.