Вдвухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-ой столбца надо

116

485

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

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

Anna256829

Информатика

4,4(56 оценок)

{в двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-го столбца} var c: array [1..100,1..100] of integer; p: longint; kol, k: byte; {кол-во отрицательных эл-тов} n,m,i,j: byte; begin writeln('введите размерность массива (кол-во строк, столбцов)'); readln(n,m); writeln('введите элементы двумерного массива'); for i: =1 to n do for j: =1 to m do read(c[i,j]); writeln('введите номер столбца'); readln(k); kol: =0; p: =1; for i: =1 to n do if (c[i,k] mod 4< > 0) and (c[i,k]> =100) and (c[i,k]< 1000) then {не кратно 4, трехзначное} begin p: =p*c[i,k]; kol: =kol+1 end; writeln('kol=', kol: 7); writeln('произведение=', p: 5) end.

ivanovaanyuta

Информатика

4,4(84 оценок)

Pascal: var n: integer; f: boolean; begin f: =false; repeat write ('n = '); readln (n); until (n> =1000) and (n< =9999); while (not f) and (n< > 0) do begin if n mod 10 = 4 then f: =true; n: =n div 10; end; if f then writeln ('yes') else writeln ('no'); end. c++: #include < iostream> using namespace std; int main() { int n; bool f = false; while (n< 1000 || n> 9999) { cout < < "n = "; cin > > n; } while (! f & & n! =0) { if (n%10==4) f = true; } if (f) cout < < "yes" < < endl; else cout < < "no" < < endl; return 0; }

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.