Вопрос школьника по предмету Информатика
программирование на языке Паскаль, очень надо
вводится последовательность натуральных чисел, кол-во не более 10 тысяч, каждое число не может превышать 30 тысяч. Окончанием ввода является 0. Определите кол-во чисел кратных 5
Ответ учителя по предмету Информатика
Var
A:array[0..10000] of integer;
B,i:integer;
Begin
i:=0;
Read(B);
While B<>0 do
Begin
A[i]:=B;
i:=i+1;
Read(B);
End;
B:=0;
i:=0;
While A[i]<>0 do
Begin
if A[i] mod 5 = 0 then B:=B+1;
i:=i+1;
End;
Write(‘Количество чисел, кратных пяти: ‘,B);
End.
Похожие вопросы от пользователей
В лесу жил соловей, который чудесно пел. Китайский император ,узнав о чудесном пении соловья, пожелал его послушать. Когда соловья доставили во дворец и император послушал его пения, он был растроган и очарован. С тех пор соловей стал жить во дворце. Но однажды, японский император подарил китайскому императору золотого соловья, который тоже обладал чудным пением, но петь мог только одну песню. С этого момента золотой соловей стал всеобщим любимцем, а живой соловей улетел. Но, через время золотой соловей сломался , император заболел. Император с тоской смотрел на золотого соловья, его не кому даже было завести и тут, прилетел соловей из лесу и запел свою песню, вернув императора в доброе здравие. В обмен на это соловей попросил императора держать всё в тайне и тогда он будет снова прилетать, игрушку же соловей попросил не разбивать. ПОЧТИ ТАК ТОЛЬКО ОТ ЛИЦА СОЛОВЬЯ ЖИВОГО ДАЮ 20 БАЛЛОВ