1 принтер
2 мышь
3 процессор
4 принтер
5 системный блок
6 системный блок
7 карта расширения
8 Delete
9 цветной принтер
Пояснения надо?
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Пусть F(n) - число способов замостить дорожку 2xn. Тогда F(1) = 1, F(2) = 2.
Если n > 2, то можно либо положить с краю одну плитку вертикально, и заполнять осташуюся часть форожки 2x(n - 1), или положить две горизонтально и заполнять 2x(n - 2). Первое можно выполнить F(n - 1) способами, второе F(n - 2) способами. Поэтому F(n) = F(n - 1) + F(n - 2).
Получилось определение чисел Фибоначчи, F(n) - n- ое число Фибоначчи, F(n) = Fib(n).
Ответ. F(11) = Fib(11) = 144.
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.