1) увеличить число x в 2 раза, если оно отрицательное, во всех остальных случаях уменьшить его на 5 2) в сберкассу на депозит положили 75000 тенге. какой станет сумма вклада через 10 лет при 11% годовой ставке.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку Writeln(s) // вывод... end.
Пояснения. a - массив с индексами от 0 до n-1, где n - число слов. Срез a[:2] возвращает последовательность элементов массива 0 и 1. Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример А роза упала на лапу Азора А роза на лапу Азора
var x: integer;
begin
if x< 0 then x: =x*2 else
x: =x-2;
end.
var i: integer; x: real; beginx: =75000; for i: =1 to 10 dox: =x*1.11; write(x)end.