В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
SuperSwino
SuperSwino
03.05.2021 07:34 •  Информатика

1. Що таке вкладені розгалуження? Чим вони відрізняються від послідовності розгалужень?
2. Що таке вкладені цикли?
3. Чим може бути корисним використання вкладених розгалужень чи циклів при
складанні програми?
4. Чи можна поєднати алгоритмічні структури повторення та розгалуження в одному
проекті Скретч? Поясни, навіщо це може бути потрібно.​

Показать ответ
Ответ:
23v
23v
25.04.2022 23:14
//1
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
float D=b*b-4*a*c;
cout<<"ответ: ";
if(D>0)
cout<<"x1 = "<<(-b+sqrt(D))/2*a<<", x2 = "<<(-b-sqrt(D))/2*a;
else if(D==0)
cout<<"x = "<<-b/2*a;
else
cout<<"корней нет";
cout<<endl

//2
float a, b, c;
cout<<"Введите a: ";
cin>>a;
cout<<"Введите b: ";
cin>>b;
cout<<"Введите c: ";
cin>>c;
cout<<"Наибольшее число: ";
if(a>c)
if(a>b)
cout<<"a ("<<a<<")";
else
cout<<"b ("<<b<<")";
else if(c>b)
cout<<"c ("<<c<<")";
0,0(0 оценок)
Ответ:
nikk72827
nikk72827
16.09.2020 03:05
Первое:

program r;
    var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
    
begin;
    for i:=0 to 8 do
        if a[i]>0 then begin;
            sum:=sum+a[i];
            l:=l+1;
        end;
    for i:=0 to 8 do
        writeln('A[',i,'] = ', a[i]);
    write('Сумма положительных элементов равна ',sum,', а из количество ',l);
end.

Второе:

program t;
    var d:array [0..40] of integer; l,x:integer;
    
begin;
    for x:=0 to 40 do begin;
        d[x]:=45*x+15;
        if d[x] mod 2 = 1 then l:=l+1;
    end;
    write('Кол-во нечётных элементов ',l);
end.

Третье:

program y;
    var p:array [0..25] of real; k:integer; avg:real;
begin;
    for k:=0 to 25 do begin;
        p[k]:=7*k+3*k/15;
        avg:=avg+p[k];
    end;
    avg:=avg/26;
    write('Среднее значение элементов массива ', avg);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота