Подскажите в Pascal

Подскажите пожалуйсто как эти три цикла вбить в одну прогу с Двухуровневым меню??только плиз по подробнее вот циклы:program Project2; var K,S:integer; begin write('K='); Readln(K); S:=0; repeat begin S:=S+(K mod 10); write('+',K mod 10); k:=K div 10; until k=0; write('=',S); readln end.program Project2; var s,i:integer; k:string begin write('K='); Readln(K); S:=0; for i:=1 to length(k) do if (i mod 2=0) then S:=S-((ord(K[i])-ord('0')) else S:=S+ord(K[i])-ord('0')write('=',S); readln end.program Project2; var i,S:integer; k:string; begin write('K='); Readln(K); S:=0; for i:=1 to length(k) do begin S:=S+ord(K[i])-ord('0'); end; write('s=',S); readln end.
6 ответов

хелп!!!!!!


плиз помогите времени в обрез(((((((


плиз помогите времени в обрез(((((((
Цена вопроса?


Завтро с утра сдавать, последний зачёт остался и последний раз у меня его принимают(( если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему....


если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему...
. в одной из тем фигурировало что это сестры задачи! ай-яй-яй как не хорошо врать! помогу за 300 wmr! я думаю что 300 не слишком большая цена за
если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему....


Да было такое! пришлось соврать, так как очень стыдно находясь на последнем курсе незнать этой елементарщины... и если не трудно поясни что такое 300 wmr???