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

Задания по Дано двузначное число. Определить, кратна ли трем сумма его цифр.
2) Дано трехзначное число. Определить, равен ли квадрат этого числа сумме кубов его цифр.
3) Даны три числа a, b, c. Определить имеется ли среди них хотя бы одна пара равных между собой чисел.
4) Дана последовательность чисел. Определить, есть ли в последовательности отрицательные числа и вывести их порядковые номера.
5) Дано предложение. Найти количество одинаковых слов в предложении

👇
Открыть все ответы
Ответ:
adelina110
adelina110
29.04.2022

var

 A: array [1..3, 1..5] of Integer;

 i, j: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := 1 to 3 do begin   // заполнение массива случайными значениями и вывод для просмотра

   for j := 1 to 5 do begin

     A [i, j] := Random (22) - 11;

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

 for i := 1 to 3 do begin   // замена элементов с четной суммой индексов на 555

   for j := 1 to 5 do begin

     if (i + j) mod 2 = 0 then

       A [i, j] := 555;

   end;

 end;

 WriteLn;

 WriteLn ('Результат: ');   // вывод результата

 for i := 1 to 3 do begin

   for j := 1 to 5 do begin

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

end.

4,5(7 оценок)
Ответ:
denisDergunov
denisDergunov
29.04.2022

var

 A: array [1..3, 1..5] of Integer;

 i, j: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := 1 to 3 do begin   // заполнение массива случайными значениями и вывод для просмотра

   for j := 1 to 5 do begin

     A [i, j] := Random (22) - 11;

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

 for i := 1 to 3 do begin   // замена элементов с четной суммой индексов на 555

   for j := 1 to 5 do begin

     if (i + j) mod 2 = 0 then

       A [i, j] := 555;

   end;

 end;

 WriteLn;

 WriteLn ('Результат: ');   // вывод результата

 for i := 1 to 3 do begin

   for j := 1 to 5 do begin

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

end.

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