Премини към съдържанието
Метин

Помощ за задачи на 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 (преглед на промените)

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


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

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

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

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

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

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

Вход

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

Вход

  • Разглеждащи това в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

  • Подобни теми

    • от мария0401
      Здравейте, не знам как да започна. Объркана съм. Трябва ми съвет..аз съм на 17 наскоро разбрах,че имам още една сестра..никога не съм я виждала.При раждането й баба ми я е дала на някой без майка ми да знае..замислих се как може да има такива хора да дадат внучка си при раждането на някакъв човек без никой да знае..казаха ми ,че майка ми я е кръстила Доротея родена е 2004 година.Умирам от желание да разбера къде е ,да я познавам,да видя как се грижат за нея..не знам как да я намеря...винаги когато се опитам да говоря с майка ми тя започва да плаче...не може да ми кажи нищо опитва се,но я боли твърде много..много искам да я намеря...
    • от Golfman
      Здравейте трябва ми помощ относно задачата  на паслал ако може да ми напишете сорскода

    • от Кристиян Йорданов
      Здравейте,
      Искам да ви попитам имам една система която съм направил но в нея има файлове като data.txt. Въпросът ми е как тази data.txt да я изтрия без да влизам в хоста
    • от Elaine
      Знам, че в тези форуми се разтягат безсмислени локуми надълго и нашироко, но ми е интересно да видя отговори на въпроса как човек с ниско самочувствие, си го помпа.
      Например, когато се усещате, че нямате енергия даже да станете от леглото и да излезете, защото в миналото някакви хора малко по-малко, енергийно са ви отслабили, подронили са ви самочувствието? Или може би, вчера... или миналата седмица...все едно, усещате че там е проблемът, че това нещо се е случило. Откъде и как се зареждате? На мен нищо не ми действа.
      Просто зададено: Когато са ви нахранили, а вие не сте повърнали навреме, как после изхвърляте отровата от себе си?
  • Дарение

×

Информация

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