Задание 1
program HelloMoney;
var
y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла
p, s: real; //Объявим переменные для количества процентов и величины вклада
begin
write('Какая сумма вклада? ');
readln(s); // Указываем сколько составляет вклад
write('На сколько лет вклад? ');
readln(y); // Указываем на сколько лет вклад
write('Какая процентная ставка?');
readln(p); // Указываем процентную ставку
for i:=1 to y do
s := s + s*p/100; // Прибавляем к вкладу ежегодный процент
write('Сумма денег составит: ', s);
end.
Объяснение:
2. var
r: integer;
result: string;
begin
write('вводите число от 1 до 12: ');
readln(r);
case r of
1: Result := 'январь';
2: Result := 'февраль';
3: Result := 'март';
4: Result := 'апрель';
5: Result := 'май';
6: Result := 'июнь';
7: Result := 'июль';
8: Result := 'август';
9: Result := 'сентябрь';
10: Result := 'октябрь';
11: Result := 'ноябрь ';
12: Result := 'декабрь';
end;
writeln(' месяц : ',result);
end.
Объяснение:
я написал ответ только к 2 задаче
постарайся сам сделать 1 ую задачку.
print ( 4, end=" ") Строка выводит цифру 4.
for i in range(4, 2, -1): цикл от 4 до 2, с шагом -1, будут выполнены 2 итерации
print ( 2*i, end=" " ) выведет 8 и 6
Вывод:
4 8 6
Так как просят число, то в ответ вводим 486