Var A:longint; n,p:integer; B:byte; Begin Write('Введите натуральное число: '); ReadLn(A); n:=0; p:=0; While A > 0 do Begin B:=A mod 10; if B = 0 then n:=n+1; if B = 5 then p:=p+1; A:=A div 10; End; WriteLn('Количество нулей в числе: ',n); WriteLn('Количество пятёрок в числе: ',p); End.
Вариант второй:
Var A:string; n,p,i:integer; Begin Write('Введите натуральное число: ');ReadLn(A); n:=0; p:=0; For i:= 1 to Length(A) do if A[i] = '0' then n:=n+1 else if A[i] = '5' then p:=p+1; WriteLn('Количество нулей в числе: ',n); WriteLn('Количество пятёрок в числе: ',p); End.
Чистота, не должно быть воды ( чтобы не случилось замыкания) , провода от компов должны быть целые, нельзя входить в грязной обуви, вроде как то так Начало » Учителю » Требования к кабинету информатики и вычислительной техники Требования к кабинету информатики и вычислительной техники. 2.10. Кабинет информатики и вычислительной техники (ИВТ). 2.10.1. Санитарно-гигиенические требования 2.10.1.1. Помещения кабинета ИВТ должны иметь естественное и искусственное освещение в соответствии с СанПиН 2.2.2.542-96. 2.10.1.2. Основной поток естественного света должен быть слева. Ориентация оконных проемов должна быть на север или на северо-восток. Не допускается направление основного светового потока естественного света сзади и спереди работающего на ПЭВМ. При двухстороннем освещении при глубине помещения кабинета более 6м обязательно устройство правостороннего подсвета, высота которого должна быть не менее 2,2м от пола. 2.10.1.3. В осветительных установках кабинета ИВТ должна быть использована система общего освещения, выполненная потолочными или подвесными люминесцентными светильниками, равномерно размещенными по потолку рядами в виде сплошных линий с двух сторон о рабочего стола с ПЭВМ или ВДТ. Светильники, а также оконные светопроемы не должны отражаться на экранах ПЭВМ или ВДТ. 2.10.1.4. Освещенность поверхности ученических столов при искусственном освещении должна быть в пределах 300-500 лк. Светильники должны иметь светорассеивающую арматуру. 2.10.1.5. В качестве источников света рекомендуется использовать люминесцентные лампы мощностью 40Вт, 58Вт или энергоэкономичные мощностью 36Вт типа ЛБ, ЛХБ как наиболее эффективные и приемлемые с точки зрения спектрального состава. 2.10.1.6.Для учебных помещений с ПЭВМ и ВДТ следует применять светильники серии ЛП036 с высокочастотными пускорегулируемыми аппаратами (ВЧПРА). Можно допустить применение светильников без ВЧПРА в модификации "кососвет". 2.10.1.7. В помещениях с ПЭВМ по причине загрязнения воздуха антропогенными веществами органической природы и диоксидом углерода рекомендуется иметь приточно-вытяжную вентиляцию, обеспечивающую оптимальный температурно-влажностный режим для всех климатических зон. Оптимальные параметры Допустимые параметры Температура, С Относительная влажность, % Температура, С Относительная влажность, % 19 62 18 39 20 58 22 31 21 55 - -
Var
A:longint;
n,p:integer;
B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
Begin
B:=A mod 10;
if B = 0 then n:=n+1;
if B = 5 then p:=p+1;
A:=A div 10;
End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.
Вариант второй:
Var
A:string;
n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
if A[i] = '0' then n:=n+1
else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.