//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Where(x -> length(inttostr(x))=3).where(x -> x mod 4=0).Count);
end.
Пример ввода:
444
4444
22
123
888
0
Пример вывода:
2
Физическая передающая среда это провода - витая пара например
программы - протоколы и маршрутизаторы
топологии - звезда, кольцо, дерево, типология - такого нет понятия
Program zoopark;
var biletvs,biletde,vzros,dets,summ: real;
beginwrite('Введите Количество проданных билетов для Взрослых');
readln(biletvs);
write('Введите Количество проданных билетов для Детей');
readln(biletde);
vzros:=115;
dets:=115/100*70;
summ:=((biletvs*vzros)+(biletde*dets))*7;
write('Еженедельная выручка зоопарка =',summ);
<span>end.
</span>
Вроде должно быть так
См. прикрепленные файлы.
Лист Excel защищен без пароля, чтобы случайно не повредить файлы.
Формулы можно посмотреть в строке формул.
31*36=1116 ответ проверка 1116:36=31