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

КОНТРОЛЬНАЯ РАБОТА No1 Ne
Задание
В таблицах приведена протяженность автомагистралей между соседними населенными пунктами. Если
ответ
пересечение строки столбца пусто, то соответствующие населенные пункты не являются соседними.
Укажите номер таблицы, для которой выполняется условие «Максимальная протяженность маршрута от
пункта C до пункта В не больше 6». Протяженность маршрута складывается из протяженности
автомагистралей между соответствующими соседними населенными пунктами. При этом через любой
насеченный пункт маршрут должен проходить не более одного раза.
ABCD E
А в с DIE
С
A B C D E
1 A
3
7 A 25 6
A
26 As 2 6
В
2
B 2.
3
B
2
в 15
5
с 3
6
с 5
С 2
2
с 2
2
D 2 6 1 D 3
1 D 2
D
22
3
52
E 7
1
E 6
Е 16
EI6
1)
2)
A
B
D
E
2
4)

👇
Открыть все ответы
Ответ:
Роман768
Роман768
27.02.2021
Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.
4,7(69 оценок)
Ответ:
NaightMar
NaightMar
27.02.2021
//PascalABC
//NaaMan
var
    N, sum, num, i : integer;
    A : array[1..10000] of integer;
    SA : real;
begin
    write('Укажите, сколько будет чисел > ');
    readln(N);
    write('Вводите элементы массива > ');
    // Обнуляем сумму
    sum := 0;
    // и количество искомых элементов
    num := 0;
    // Ввод элементов массива с одновременным подсчетом
    for i := 1 to N do begin
        // Ввод
        readln(A[i]);
        write('Ещё > ');
        // Если введённое нечётное, то
        if A[i] mod 2 = 1 then begin
            // добавляем к сумме
            sum := sum + A[i];
            // и считаем их количество
            num := num + 1;
        end;
        // Это среднее арифметическое
        SA := sum / num;
    end;
       
    writeln('Сумма элементов ', sum);
    writeln('Среднее арифметическое ', SA);
end.

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