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

Даны два натуральных числа – двузначное и трехзначное. найти разность суммы цифр двузначного и трехзначного чисел.

👇
Ответ:
maxdemplay
maxdemplay
15.05.2023
Program pr;
var a,b,s1,s2:integer;
begin
writeln('Введите двузначное число');
readln(a);
writeln('Введите трехзначное число');
readln(b);
s1:=a div10+a mod 10;
s2:=b div100+b mod10+(b div10)mod10;
writeln('Разность суммы цифр двузначного и трехзначного чисел равна  ',s1-s2);
end.
4,4(40 оценок)
Открыть все ответы
Ответ:
DeFauLD
DeFauLD
15.05.2023

Автор

100 слов для студента

Абзац

100 слов для студента

Аудитория

100 слов для студента

100 слов для студента

Белорусский

100 слов для студента

Беседа

100 слов для студента

Беседовать

100 слов для студента

Библиотека

100 слов для студента

Брать

100 слов для студента

Будущий

100 слов для студента

Важный

100 слов для студента

Вариант

100 слов для студента

Ведомость

100 слов для студента

Век

100 слов для студента

Великий

100 слов для студента

Вернуть

100 слов для студента

Вести

100 слов для студента

Взять

100 слов для студента

Внимание

100 слов для студента

Вопрос

100 слов для студента

Время

100 слов для студента

Объяснение:

4,7(4 оценок)
Ответ:
Daria990
Daria990
15.05.2023
Var
  arr: array[1..27] of integer;
  summ: integer;
begin
  Randomize;
  for var i := 1 to 27 do
  begin
    arr[i] := random(-5, 5);
    summ := summ + arr[i];
  end;
  writeln('Массив: ',arr);
  writeln('Сумма всех элементов массива = ',summ);
  for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ;
  writeln('Массив: ',arr);
end.

пример работы:
Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
Сумма всех элементов массива = 14
Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]

var
  arr: array of integer;
  n,k,m: integer;
begin
  write('Введи n: ');
  readln(n);
  Randomize;
  arr:= new integer[n];
  for var i := 0 to n-1 do arr[i] := random(-5, 5);
  writeln('Массив: ',arr);
  for var i := 0 to n-1 do
  begin
    if arr[i]<0 then inc(k);
    if (i>=1) and (i<=6) then inc(m);
    if (i>=6) and (arr[i]>=0) then arr[i]:=1;
  end;
  writeln('Количество отрицательных элементов массива = ',k);
  writeln('Количество элементов массива в интервале [2..7] = ',m);
  writeln('Массив: ',arr);
end.

Пример работы:
Введи n: 5
Массив: [0,1,-4,1,3]
Количество отрицательных элементов массива = 1
Количество элементов массива в интервале [2..7] = 4
Массив: [0,1,-4,1,3]

Введи n: 15
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]
Количество отрицательных элементов массива = 5
Количество элементов массива в интервале [2..7] = 6
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
4,4(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ