Задания по Дано двузначное число. Определить, кратна ли трем сумма его цифр. 2) Дано трехзначное число. - id1204186620220429 от жони12 29.04.2022 00:55

Question

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

жони12 · Accepted Answer

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;

WriteLn;

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

for i := 1 to 3 do begin

for j := 1 to 5 do begin

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

end;

Writeln;

end;

end.

MOGZ ответил