Склавиатуры вводятся три строки. найти, в которой больше цифр. для поиска количества цифр использовать в программе функцию. пример работы программы:
ввод данных
первая строка: 1 октября 2019 года.
вторая строка: сегодня прохладно.
первая строка: пете 16 лет.
вывод данных:
в первой строке цифр больше

👇

Открыть все ответы

Ответ:

Valeria0710

11.04.2022

№3

1) открой холодильник,
        2) достань из холодильника жёлтую кастрюлю, в которой суп
        3) поставь кастрюлю на газовую плиту,
        4) зажги газ,

5) если нет спичек, воспользуйся микроволновкой
6) нилей суп в кантейнер и закрой его

7) поставь суп в микроволновку и выставь на таймере цифру 5

8) нажми старт

№2

Алгорит без обратной связи. Потому что ребенок не смотрит выполнено ли действие или на наличие того или иного предмета. Например, по истечению тех же пяти минут не факт что этот суп будет теплый

4,7(90 оценок)

Ответ:

Зюна

11.04.2022

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatInput(a:array[,] of integer);
begin
Writeln('Вводите элементы матрицы построчно, в конце нажимая Enter');
for var i:=0 to Length(a,0)-1 do begin
    Write(i+1,': ');
    for var j:=0 to Length(a,1)-1 do Read(a[i,j]);
    end
end;

procedure MatPrint(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to Length(a,1)-1 do Print(a[i,j]);
    Writeln
    end
end;

function IsEqual(a:array[,] of integer; j1,j2:integer;
flag:array of boolean):boolean;
// равны ли столбцы с индексами j1 и j2
begin
if flag[j2]=False then begin
    Result:=True;
    for var i:=0 to Length(a,0)-1 do
      if a[i,j1]<>a[i,j2] then begin Result:=False; Break end;
    flag[j2]:=Result
    end
end;

begin
var n:=ReadInteger('Задайте число строк (столбцов) матрицы:');
var a:array[,] of integer;
var m:=ArrFill(n,False);
SetLength(a,n,n);
MatInput(a);
Writeln('*** Принятая матрица ***');
MatPrint(a);
var k:=1;
for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if IsEqual(a,i,j,m) then Inc(k);
if k>1 then Writeln('Количество совпадающих столбцов равно ',k)
else Writeln('нет совпадающих столбцов')
end.

Тестовое решение
Задайте число строк (столбцов) матрицы: 3
Вводите элементы матрицы построчно, в конце нажимая Enter
1: 1 2 2
2: 3 5 5
3: 2 2 2
*** Принятая матрица ***
1 2 2
3 5 5
2 2 2
Количество совпадающих столбцов равно 2

4,5(35 оценок)

Это интересно:

Взаимоотношения

07.02.2020

Как привести девушку домой на первом свидании: советы и рекомендации...

Хобби-и-рукоделие

18.04.2021

Как сшить жилетку: подробный мастер-класс...

Мир-работы

10.10.2021

Как стать дрессировщиком дельфинов: руководство для начинающих...

Взаимоотношения