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

Написать программу на языке pascal. занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). выведите названия стран в порядке возрастания плотности их населения.
попытался сделать программу, но выводит в порядке убывания.

👇
Открыть все ответы
Ответ:
yaaaaaaan
yaaaaaaan
31.12.2022

Это соединение используется, чтобы изменить сопротивляемость в пусковых реостатах, питающихся от постоянного тока. Для подсчета используются специальные онлайн-сервисы. Это быстрее вычислить, упростить и ускорить расчеты электротехнических параметров.

Формула расчета при смешанном соединении устройств

В результате, чтобы рассчитать эквивалентное сопротивление цепи, необходимо вспомнить про закон Ома и обязательно пользоваться указанными формулами выше. Только при смешенном типе соединения желательно вести подсчеты в онлайн-калькуляторах, так как есть риск допустить ошибку в расчетах.

Объяснение:

4,8(40 оценок)
Ответ:
Vetvika31
Vetvika31
31.12.2022
Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.
4,7(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ