1)
var x:integer;
begin
readln(x);
writeln(x+1);
end.
2)
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln(f);
end.
Вклад 10 000 тыс 1 000 тыс
Банк А 13 000 тыс 1 300 тыс
Банк Б 12 000 тыс 1 200 тыс
Количество прибыли зависит от величины вклада, а какой банк выгоднее - не зависит.
За какое бы количество времени ни пользовались вкладом, соотношение прибыли к году и к вкладу остается прежним.
Наибольшее четырехзначное восьмеричное число - это 7777₈.
В двоичном коде каждая триада представляется тремя битами и такое число запишется как 111 111 111 111₂ (разделение на триады пробелом сделано для наглядности).
Чтобы число было наибольшим четырехзначным и содержало четыре нуля, эти четыре нуля должны быть в конце.
Число будет иметь вид 111 111 110 000₂ = 7760₈
Ответ: 7760
101011
(Я люблю ограничение по символам)
Var
a, b, d, s, alpha: real;
begin
Write('Введите длину диагонали прямоугольника: ');
Readln(d);
Write('Введите величину угла между большей стороной и диагональю :');
Readln(alpha);
alpha := Pi * alpha / 180;
a := d * cos(alpha);
b := d * sin(alpha);
s := a * b;
Writeln('Площадь прямоугольника равна ', s:0:3)
end.
Тестовое решение:
Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429