+1 дауыс
3.1k көрілді
1). Екі таңбалы сан берілген. Анықта: А) олардың қайсысының цифры көп? :біріншісі не екіншісінің?.  Б)олардың цифрлары бірдейма?.  *(мына есеп шартты оператор арқылы шығу керек)*
2).  6 күндегі дүкендердегі сатылған бес түрлі тауарлардың әр данасының бағасы және әр тауардың жалпы саны белгілі. А) 6 күндегі дүкеннің жалпы кірісі.... Б) 6 күнде тауардың қай түрінен ең көп кіріс түскен....  *(мына есеп Берілгендердің реттік типі арқылы шығу керек.)*
3). Екі бүтін сандардан тұратын реттелген тізбек жиындары берілген: a1,a2,...,a8  және  b1,b2,...,b8. Біріншісінен жұп сандарды, екіншісінен тақ сандарды анықта.*(бұл есеп процедура арқылы шығу керек)*.
4). Екі бүтін сандардан тұратын реттелген тізбек жиындары берілген: a1,a2,...,a8  және  b1,b2,...,b8. Біріншісінен жұп сандарды, екіншісінен тақ сандарды анықта.*(жұп сандарды анықтайтын функцияны анықта.) (бул есепті Функция - рекурсивті функциялар арқылы шығару керек.)*
Блок-схемасын білсеңіздер қалдырыңыздаршы. Аллах разылығы үшін жамағат.!!!!!!!!!!
Сұрақтың жабылу себебі: Упи рахмет...

1 жауап

+1 дауыс
 
Жақсы жауап
{$H+}
int1,int2:string;
read(int1,int2);
if length(int1)>length(int2) then write('1 san cifrasi ulken') else  write('2 san cifrasi ulken');
if int1=int2 then write('ekeui ten');
end.
// integer типін string қылып ала беруге болады бұл жерде тек салыстырып жатқаннан.
көп рахмет.. Аллах  разы болсын өзіңе досым ....!!!!!!!!!!!!
қалған екеуін шығаруға ерінген болатынмын...
сұрақтарыңыз болса:
ulday94@gmail.com
...