Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
Ответ:
Ну 8-3 и 8-1, соответственно 5 и 7
Объяснение:
Справочная система запускается с помощью кнопки F1.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln(Range(-200,150).Sum)
end.
<u><em>Результат выполнения программы:</em></u>
-8775