М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dudich97
dudich97
23.11.2021 08:34 •  Информатика

A) составить процедуру вычисления чисел фиббоначчи для i=1,, если : f[1]=f[2]=1; f[i-2]+f[i-2],т.е f[3]=f[1]+f[2],f[4]=f[3]+f[2] и т.д . использовать процедуру для n=10,n=15. b) б)даны три массива: a={17.2,9.3,14.5,-11.7,4.3,5.9,-11.9,12.3,-14.1,-15.3} b={-1.2,4.2,5.9,-18.1,21.2,-3.1,-5.3,-12.2,21.4,-4.5,8.2,9.4} c={3.5,8.4,-3.2,4.5,-8.4,-9.5,1.5,9.3} для каждого из массивов найти суммы положительных элементов. использовать подпрограмму. c) в) вычислить φ(x+2; 3,4; y-1)+2φ(x-1; 2y; 1,5) при каждом значение х∈[2; 8], изменяющимся с шагом h[x]=0,5 и заданном значении y=5,68, где φ(a,b,c)=sin((a+b)/4)- (√(a+c+10))*(iai-bc). применить функцию пользователя.

👇
Ответ:
Valensia59
Valensia59
23.11.2021
А) Procedure Fibbonachi(Const n: Integer);
Var i, a, b, t: Integer;
begin
    a := 1;
    b := 1;
    for i:=1 to n-1 do
        if i = 1 then Write(a, ', ')
        else if i = 2 then Write(b, ', ')
        else begin
            Write(a+b, ', ');
            t := a+b;
            a := b;
            b := t;
        end;
    WriteLn(a+b);
end;

begin
    Fibbonachi(15);
end.
4,4(47 оценок)
Открыть все ответы
Ответ:
avysocka
avysocka
23.11.2021
//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x > y then
writeln(x - y)
else
 writeln(y - x);
end.

//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a > (b + c)) then
writeln(a)
else
writeln(b + c);
end.

//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k должен быть равен 1 или 2.');
end.

//4)
var p, m: integer;
begin
  write('Введите p, m: ');
  read(p, m);
  if p > m * 2 then
    writeln(p)
  else
    writeln(m * 2);
end.
4,6(34 оценок)
Ответ:
Лиля4032
Лиля4032
23.11.2021

1)

pass1 = input('Введите пароль: ')

pass2 = input('Введите пароль ещё раз: ')

if str(pass1) == str(pass2):

print('Доступ разрешён')

else:

print('Доступ запрещён')

2)

summ = int(input('Сумма покупки: '))

if summ < 800:

print('Скидка не предоставляется.\n' + 'Сумма покупки: ' + str(summ))

elif 1500 >= summ <= 800:

summ = summ - summ * 0.05

print('Скидка предоставляется в 5%\n' + 'Сумма покупки: ' + str(summ))

elif summ >= 1500:

summ = summ - summ*0.1

print('Скидка предоставляется в 10%\n' + 'Сумма покупки: ' + str(summ))

3)

a = int(input('Введите число: '))

if a > 0:

print('1')

elif a < 0:

print('-1')

elif a == 0:

print('0')

4,6(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ