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

Как называется тип моделей созданных в программе скетчап​

Показать ответ
Ответ:
kdjdjd1Dndnd
kdjdjd1Dndnd
17.10.2021 16:38

схема и объяснение снизу

program ufhcn;

var x, y, a, i, b: real;

uses crt;

begin

clrscr;

writeln('вводи число 1');

readln(i);

writeln('вводи число 2');

readln(x);

if (x> =0) then writeln('все в порядке')

else writeln('не правильная цифра');

if (i> =1) and (i< =13)

then writeln('число входит в ряд', x*i> =a)

else writeln('не входит ряд');

writeln('води число 3');

readln(a);

if (a> =0) then writeln('вводи число 4');

readln(b);

if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));

if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*

end.

начало

вводим переменную i

вводим переменную x

если x> =0 то

если нет если да

то нет. то далее

ввели интервал в переменную i

если (i> =1) и (i< =12) то

если нет. если да

то нет решения. то есть решение

вводим число 3

если (а> =0) то

вводим число 4

если (b> =0) то

y1= a*x*(i*i*i)+b*sqrt(x*i))

если (b< 0) то

y2= ', (sin(x)/cos(x))*(a-(x*

конец

короче объясняю.

ввёл 4 переменных

сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.

ввёл интервал i от 1 до 12

остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь

0,0(0 оценок)
Ответ:
sasulencijaozq7jr
sasulencijaozq7jr
09.03.2023 10:48
Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота