Премини към съдържанието
15 години Kaldata.com – време е да почерпим! Прочети още... ×
Метин

Помощ за задачи на Pascal - как да изведа всички нечетни числа

Препоръчан отговор


Имам за задача от два масива А(М) и B(N) да изведа всички нечетни числа. Правилна ли е програмата?

 

 

 

program volensiderov;var A(M)[1..5]of Integer;B(N)[1..3]of Integer;M, N:Integer;beginwrite('N=);readln(N);write('M=');readln(M);for i:=1 to N do beginwrite('A[',N,]=',A[M]);readln; end;for i:=1 to M do beginwrite('B[',N,']=',B[N]);readln; end;for i:=1 to M do beginif A[M] 3mod2=1 then write('chisloto e nechetno');readln;if B[N] 3mod2=1 then write('chisloto e nechetno');readln;End.

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Не, освен ако не са измислили някакъв нов Паскал за който не съм чувал.

Редактирано от ined (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.