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

Пользователь вводит трехзначное число. Программа должна сложить цифры, из которых состоит это число. Например, если было введено 349, программа должна вывести на экран число 16, так как 3 + 4 + 9 = 16.

👇
Увидеть ответ
Ответ:
Тирия
Тирия
02.11.2020
На каком хоть языке это надо написать?
4,7(63 оценок)
Открыть все ответы
Ответ:
tatyankafi
tatyankafi
02.11.2020
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(20,-99,99); mas.Println;

  var a:=mas[0:10]; var b:=mas[10:20]; 

   Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

    Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var 

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for  i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for  i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

    Writeln('количество отрицательных элементов=',l);

    end.

Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и
4,6(56 оценок)
Ответ:
romanilblockp08hg1
romanilblockp08hg1
02.11.2020
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,4(85 оценок)
Это интересно:
К
Секретный ингредиент коктейля «Арнольд Палмер» и его рецепт...
Ф
Стартуем бизнес по схеме дропшиппинга: советы и рекомендации...
К
Как поднять свой боевой уровень в RuneScape: советы и рекомендации...
С
Пухлые щеки: прекрасный тренд или проблема?...
К
Как приготовить торт на именины собаки...
М
Мир-работы
01.04.2023
Как стать успешным командным игроком на работе: советы для успеха...
С
Как помочь другу, потерявшему близкого человека: советы и рекомендации...
З
Здоровье
04.01.2023
Контроль гнева: как управлять своими эмоциями...
К
Как сделать красивые и вкусные французские макароны с миндалем...
К
Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...
Новые ответы от MOGZ: Информатика
FunLayn1
FunLayn1
22.05.2020
Написать программу - если переменная A меньше 5 и B больше 10, то...
sofa285
sofa285
25.04.2020
CLS p = 1 FOR i = 1 TO 5 STEP 2 p = p * i PRINT p NEXT i 1) Значение переменной P 2) Сколько чисел будет распечатано на экране?...
datkinnurikozrhbf
datkinnurikozrhbf
30.08.2020
Кто сможет сделать в течение часа​...
dudych2045
dudych2045
29.09.2020
Информатика 9 ! написать программу, которая выводит на экран сообщение, в какую четверть координатной плоскости попала точка с заданными координатами. координаты точки вводятся...
вика3877
вика3877
18.02.2021
Вклассе 32 ученика. сколько битов информации содержиться в сообщении сегодня дежурит сеня сенечкин ?...
13xaxa13
13xaxa13
18.02.2021
Укажите минимальный объем памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 32х32 пикселя, если известно, что в изображении используется палитра...
ZEVS333333
ZEVS333333
18.02.2021
К50 и 26 мегобит перевисти в байты биты килобайты...
Aannddrreeyy22
Aannddrreeyy22
18.02.2021
Для какого из чисел истинно высказывание: не (число 20) и (число нечётное)? 1) 8 2) 15 3) 21 4) 36...
maynovetskaya0
maynovetskaya0
18.09.2020
Уисполнителя аккорд две команды, которым присвоены номера: 1. отними 12. умножь на x(x – неизвестное положительное число)выполняя первую из них, аккорд отнимает от числа на экране...
VanyaKiba
VanyaKiba
18.09.2020
Уисполнителя альфа две команды, которым присвоены номера: 1. прибавь 12. умножь на b(b – неизвестное натуральное число; b ≥ 2)выполняя первую из них, альфа увеличивает число на...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ