d_100 Публикувано Юни 16, 2008 Report Share Публикувано Юни 16, 2008 ЗдравейтеБихте ми ми помогнали с една задача на Паскал.Много ще съм ви благодарен.Съставете програма която въвежда две цели числа и извежда по малкото на степен втора а по голямото умножено по две.В доста други форуми не се отзоваха на молбата ми дано вие ми помогнете. Цитирай Link to comment Сподели другаде More sharing options...
d_100 Публикувано Юни 18, 2008 Author Report Share Публикувано Юни 18, 2008 Моля темата да бъде изтрита. Цитирай Link to comment Сподели другаде More sharing options...
IVAN Публикувано Юни 18, 2008 Report Share Публикувано Юни 18, 2008 Моля темата да бъде изтрита.Защото?Ако си намерил решение... сподели го Цитирай Link to comment Сподели другаде More sharing options...
d_100 Публикувано Юни 19, 2008 Author Report Share Публикувано Юни 19, 2008 Защото?Ако си намерил решение... сподели го ОК Няма проблем това е решението на горната задачаvar A,B : integer; begin Write('Vavedete chisloto a:'); Readln(a); Write('Vavedete chisloto b:'); Readln(b); if A<B then begin Writeln('Po-malkoto chislo e chisloto A: ',a,' i negoviq kvadrat e: ',sqr(a)); Writeln('Po-golqmoto chislo e B: ',b,' i stoinostta mu umnojena po 2 e: ',b*2); end else begin Writeln('Po-malkoto chislo e chisloto B: ',b,' i negoviq kvadrat e: ',sqr(b)); Writeln('Po-golqmoto chislo e A: ',a,' i stoinostta mu umnojena po 2 e: ',a*2); end; Readln; end.Имах една втора задача.Ето условието и решението.Съставете програма която определя дали даденото цяло число въведено от клавиатурата седели на 5 и 15. var a:integer; Begin write('a='); readln(a); if (a mod 5 = 0 )and (a mod 15 = 0) then writeln('a se deli na 5 i 15'); if (a mod 5 = 0) and (a mod 15 <> 0) then writeln('a se deli na 5, no ne i na 15'); if (a mod 5 <> 0) and (a mod 15 <> 0) then writeln('a ne se deli nito na 5, nito na 15'); readln; End.Дано послужат на някои.Приятен ден. Цитирай Link to comment Сподели другаде More sharing options...
Препоръчан пост
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.