Мэтры программирования сюда(пасик)

[Orlando Magic]

Program zadacha_65;

Var i: longint;

N: integer;

begin

write('Введите число: ');

readln(i);

N:= 0;

while ((i mod 10) = 0) do

begin

i:= i div 10 ;

end;;

while (i <> 0) do

begin

if (i mod 10) = 0 then inc(N);

i:= i div 10;

end;

writeln(' N of 0 = ');

write(N);

end.

 

Может кто разобрать эльфийский? Ввели блядь какую-то хуйню на один семестр с диф зачетом, вот и надрывай задницы теперь, как будто мне матана было мало.

 

Вот условие: Дано натуральное число N (N> 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример. N=10 025 000. Количество нулей равно двум.

 

Сейв плс.

 

Напишите что там происходит по действиям.

[Baza_KAiF]

штото не по русски написано

[K()ST]

В мастерскую иди.

[Pipiska.Drakona]

хуесос анимешник быдло

соси тварь

пидар

[LeapHarder]

хз че сложного, запускается цикл, условие которого гласит: пока число i делится на 10 без остатка делим число i на 10(откидывая дробную часть)

Ну грубого говоря если число 13 div 4 = 3, а не 3,25.

как только перестает делится на 10 без остатка, запоминает его и запускается второй цикл пока i не равняется нулю начинает его делить на 10, если делится без остатка то увеличивает переменную N на 1 и сразу за ним делит число на 10(откидывая дробную часть)(div)

Грубо говоря делает то что задано в условие, не понимаю чего тебе надо.

[E1azor]

где-то еще преподают паскаль?

 

кароче сначала запрос числа i у пользователся

потом цикл где число делится на 10 пока оно делится нацело на 10. Mod - остаток от деления. Это чтобы избавится от последних нулей.

во втором цикле проверяется последний знак - остаток от деления на 10. Если 0, то счетчик N увеличивается. Число каждый раз внутри цикла делится на 10.

 

По русски же написано все.

[LeapHarder]

Ну то есть берет

i =10 025 000 это число

делит его в первом цикле 3 раза( while ((i mod 10) = 0) ), то есть вначале откинет все нули справа

а после войдет во второй цикл где только на 3ом прогоне начнет увеличивать переменную N.

[majestikkk]

штото не по русски написано

в оригинале было

" что ты видишь леголас? "

" какая-то надпись нэрусская внизу экрана" *эстонский акцент*

[Dark[Ol(U23)leneri]]

Даже засомневался, что в коем веке в таверну зашел

[ЖУМОНГ]

у автора есть условие и есть решение. что еще надо?

 

после первого энда бтв одну точку с запятой убрать надо

Изменено 18 марта 2015 пользователем ЖУМОНГ

[DVAHAS]

на парах надо было лучше слушать, пидор

[dreamer]

хуесос анимешник быдло

соси тварь

пидар

хейтить аниме

2015

:lol: :lol: :lol:

клоун сук :lol:

[Orlando Magic]

Спасибо, но что такое "кроме младшего разряда"? Вот число 10 025 000 что тут младший разряд?

 

И если я вас правильно понял и правильно понял про разряды, мое решение неправильное.

[ho4u_est]

пизже с4 по инфе

[Feanaro]

Пиздос, простейший код не смог понять, ну ты и даун

на парах надо было лучше слушать, пидор

Изменено 18 марта 2015 пользователем Feanaro

[KaRniZZZ]

на пары не ходит, матан не уважает

нахуй вообще те помогать?

[ShadesOfGrey]

вроде гуглятся подобные задачки

на первом курсе элтеха решали

[Хантер]

Решил, проверяй

[SonGoten]

ну как я понял в этой проге, там создаётся сначала объект, но после этого объекта, ничего нельзя будет создавать еще 7 циклов

[Orlando Magic]

Я уже все разабрался можно клозать, бтв в голас с уебков которые нихуя не понимают и пишут мне чтобы я на парах слушал.