Регистрация
1qq
22.11.2022 17:36
Информатика
Есть ответ 👍

Что-то мои попытки бессмысленны. язык паскаль. напишите программу, которая определяет, сколько в матрице есть k -значных чисел, сумма цифр каждого из которых кратна r . входные данные: в первой строке записаны через пробел размеры матрицы: количество строк n и количество столбцов m ( 1 ≤ n , m ≤ 100 ). в следующих n строках записаны строки матрицы, в каждой – по m натуральных чисел, разделённых пробелами. затем в отдельной строке вводятся числа k и r . выходные данные: программа должны вывести одно число – количество k -значных чисел, сумма цифр каждого из которых кратна r . примеры: входные данные: 5 5 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 3 выходные данные: 5

185
378
Посмотреть ответы 2

Ответы на вопрос:

ritakosyanenko
ritakosyanenko
4,4(1 оценок)
// pascalabc.net 3.0, сборка 1156 от 30.01.2016 begin   var n,m: integer;   read(n,m);   var a: array[,] of integer;   setlength(a,n,m);   for var i: =0 to n-1 do       for var j: =0 to m-1 do read(a[i,j]);   var k,r: integer;   read(k,r);   var p: =0; //будущий результат   foreach var x: integer in a do begin       var s: =0; var q: =x; var k1: =0;       while q< > 0 do begin           s: =s+(q mod 10); q: =q div 10; inc(k1)           end;       if (k1=k) and (s mod r = 0) then inc(p)       end;   writeln(p) end. тестовое решение: 5 5 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 3 5
sempai1
sempai1
4,8(61 оценок)
Program massiv; var   a: array [1..25] of integer;   i: integer;   min: integer;   otr: integer; begin    {формирование массива случайными числами в заданном диапазоне}   randomize;   for i: =1 to 25 do     a[i]: =random(201)-100;   min: =a[1];   otr: =1;   for i: =1 to 25 do   begin     if a[i]< min then min: =a[i];     if (a[i]< 0) and (otr=1) then otr: =a[i];   end;   if otr=1 then     writeln('отрицательных элементов не найдено')   else     writeln(otr+min) end.

Популярно: Информатика