СLS
FOR i=20 TO 50
IF INT(i/2) <> (i/2) THEN PRINT i
NEXT i
END
Ответ:
ответ а
Объяснение:
сд ром диск является ресурсом откуда можно вытащить информацию
PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
<span>end.</span>
Program fgg;
var
i, n: Integer;
s: Real;
begin
Write('Введите n: ');
ReadLn(n);
for i := 1 to n do
s := s + 1 / i;
WriteLn('s=', s);
end.