Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
А)a•2+b•3
б) (a+a)•(b+b)
в)a•3+b+c
г) (a•2+b)+c
е) a•2+b•3
ж)(a•2)+c•2+(b•2)
Ну а два остальных попробуй сделать сам/а
А) В программе, переменные s и a приравниваются к единице. После этого, в программе запусакется цикл. Он будет работать до тех пор, пока значение i, которое равно единице, не достигнет числа 3. 3 раза будет присваиваться значение S+i×(i+1)×a к переменной S, а к переменной a - значение: a+2. Когда цикл будет завершён, программа закончит свою работу. В конце работы программы, переменная S будет равна числу: 81.
б) Первым делом, в программе запускается цикл. Он будет работать до тех пор, пока переменная i не будет равно числу 3. Сама переменная i равна числу 1. После запуска 1-ого цикла, 3 раза переменная S будет приравниться числу 0, затем, в ходе работы 1-ого цикла, запускается 2-ой цикл, который будет запускаться 3 раза, в нём же, по 1-ому разу переменная S будет принимать значение: i+j. В конце работы программы, переменная S будет равна числу: 5.
Язык программирования какой?
