Даны две матрицы разного размера. Для той из матриц, в которой есть элементы, равные 0, проверить наличие отрицательных
элементов в каждой строке.
Написать программу
292
294
Ответы на вопрос:
Program n1; var a,n: integer; f: byte; begin f: =0; readln(a,n); while a< > 0 do begin if a mod 10=n then f: =1; a: =a div 10; end; if f=1 then write('цифра ',n,' присутствует в числе') else write('в числе нет цифры ',n); end.
Популярно: Информатика
-
УЕД04.12.2020 07:08
-
flash6408.05.2023 15:43
-
ChemistKNO324.12.2020 08:19
-
Alexgk1325.05.2023 01:56
-
arsenkam12.11.2020 07:56
-
maltsevaalbina200630.10.2020 12:49
-
ipadsanya07.01.2021 11:30
-
baga2729.03.2021 16:22
-
лисичка00901.10.2021 22:12
-
Капуста1111128.06.2020 08:27