Извини, но уже ничего не поделаешь. Теперь только если ты опять зайдёшь в тот аккаунт. А теперь сам покупай игры.
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
Б)вариация, г) ореинтация.
Начертание относится к тексту.
Печать тоже к тексту, но вывод
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var s:=ReadlnString;
s:=s.Where(d->d in ['0'..'9']).JoinIntoString('');
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
a3f4h5k&2
3452