Var
Ch,Z:real;
i:integer;
Begin
Ch:=0;
For i:= 1 to 100 do
if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.
Результат работы программы:
735/7140 = 0.102941176470588
Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;
Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
2. Третий вариант ответа.