Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>
Держи ответ. формулы для пепевода 8=4:2:1. 16=8:4:2:1
INPUT "a=", a
INPUT "b=", b
PRINT "s="; a ^ 2 - b ^ 2
END
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
a=10
b=8.5
s= 27.75
Чтобы продолжить, нажмите любую клавишу
Объем шара<span> равен четырем третим от его радиуса в кубе помноженого на число пи. где V - </span>объем шара, R - радиусшара<span>, π = 3.141592.
А поточнее V=4/3 (дроб) </span>πR3(в кубе)
Криво, але це те що треба -_-