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

Паскаль
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.

👇
Ответ:
Agent1597
Agent1597
25.07.2021

var a,b,c: integer;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

if (a mod b = 0) then  

writeln('a кратно b. Сумма всех чисел: ',a+b+c)

else

writeln('a не кратно b. Произведение всех чисел: ',a*b*c);

end.

4,8(67 оценок)
Открыть все ответы
Ответ:
School30zh
School30zh
25.07.2021

Поясніть структуру та правила виконання циклу з умовою.

Цикл з передумовою — цикл, що виконується доки істинна деяка умова, вказана перед його початком. Ця умова перевіряється до початку виконання тіла циклу, тому тіло може бути не виконане жодного разу (якщо умова з початку хибна). У більшості процедурних мов програмування здійснюється за до інструкції while, звідси його друга назва — while-цикл.

Цикл із умовою: спочатку перевіряється умова, потім, залежно від того, істинно воно або неправильно, або виконується тіло циклу, або випливає перехід до оператора, що випливає за тілом циклу. Після завершення тіла циклу керування знову передається на перевірку умови. Природно, передбачається, що в тілі циклу була забезпечена деяка зміна вхідних в умову змінних – а якщо ні, то відбудеться зациклення й програма "зависне".

2. У чому відмінність у використанні циклу з параметром і циклу з умовою?

Цикл for (цикл із параметром) повторює блок команд (тіло циклу) задану кількість разів, позбавляючи необхідності кількаразово писати одні й ті самі команди.

Цикл while (поки) буде повторюватися, поки виконується задана умова. Ця умова називається умовою циклу. Результатом перевірки умови може бути True або False.

4,7(72 оценок)
Ответ:
Gvgvv
Gvgvv
25.07.2021
Пример, ненужное уберешь

const
    handsfree = true;

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

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;
    
    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
    
    {минимумы и максимумы}
    max := a[1, 1];
    min := a[1, 1];
    for i := 1 to m do
        for j := 1 to n do
        begin
            if max < a[i, j] then max := a[i, j];
            if min > a[i, j] then min := a[i, j];
        end;
    writeln('max = ', max);
    writeln('min = ', min);
    
    {сумма, произведение, пр. агригаты}
    sum := 0;
    product := 1;
    for i := 1 to m do
        for j := 1 to n do
            if a[i, j] <> 0 then {если нужен фильтр}
            begin
                sum := sum + a[i, j];
                product := product * a[i, j];
                k := k + 1;
            end;
    writeln('sum = ', sum);
    writeln('product = ', product);
    writeln('average = ', sum / (n * m));
    writeln('average (selected) = ', sum / k);
end.
4,4(90 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ