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

Дано трехзначное и четырехзначное число. в каком числе сумма цифр больше? напишите, , программу для pascal.abc.

👇
Ответ:
DiDnteR
DiDnteR
30.12.2022
Var x,y, sum1,sum2:integer;
begin
  readln(x);
  readln(y);
  while x<>0 do begin 
     sum1:=sum1 + x mod 10; 
     x := x div 10;
  end; 
  while y<>0 do begin 
      sum2:=sum2 + y mod 10;
      y := y div 10; 
  end; 
  if sum1>sum2 then Writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')');
end.
4,7(79 оценок)
Открыть все ответы
Ответ:
Nihilagay
Nihilagay
30.12.2022

1) 1

2) 2

3) 2

4) 2

Объяснение:

1)

т.к.  выражение в информатике - запись про которую можно однозначно сказать, оно ложно или нет

2)

а) НЕ (Первая буква согласная) - Первая буква гласная

б) НЕ  (Последняя буква гласная) - Последняя буква согласная

ИЛИ - Одно из двух условий

ложно для имени - ни условие а), ни условие б) не выполняется

Пимен выполняет условие б)

Кристина не выполняет ни одно из условий

Ирина выполняет условие а)

Александр выполняет условие а)

3)

¬ - оператор НЕ

& - оператор И

В общем виде НЕ(условие 1) И НЕ(условие 2)

Выражение истинно если не выполняются оба условия

Условие 1: x < 6.

Условие 2: x < 7.

Искомое число больше чем 6 и 7. Минимальное целое - 8.

Из предложенных вариантов подходит только 9

4,4(49 оценок)
Ответ:
zeus333
zeus333
30.12.2022
Const
   N = 3;
   M = 4;
Var
   T:array[1..N,1..M] of integer;
   i,j:integer;
Begin
Randomize;
WriteLn('Было:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        T[i,j]:=random(3000);
        Write(T[i,j]:6,' ');
        if (99 < T[i,j])and(T[i,j]<1000)and(T[i,j] mod 7 = 0) then T[i,j]:=T[i,j]-10;
        End;
    WriteLn
    End;
WriteLn('Стало:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
       Write(T[i,j]:6,' ');
    WriteLn
    End;
End.

Было:
  2280    893   1825     21
   491     97    666    402
  1961   2639   1873   1069
Стало:
  2280    893   1825     21
   491     97    666    402
  1961   2639   1873   1069
4,7(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ