Я думаю так: Д,В,Е,Ж,Г,Б,А Получается: ftp://edu.ru/demo.rar
Бесконечнре число раз так как i всегда >0
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.
28,97(10)=33,76(8)=11011,111010(2)
Обратно в 10сс 33,76=3*8+3+7*1/8+6*1/64=28,97
Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.