ОГЭ по информатике.Задание C2.2

@n1ghtman · Регистрация: 27.06.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте.Писал пробник ОГЭ и там была такая задача(кликабельно).
Я пробую сейчас решить ее...Выходит вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program w;
Var a,b,c,d,e,f,g: integer;
h: real;
AA: array[1..100] of integer;
AB: array [1..100] of integer;
Begin
for a:=1 to 100 do Begin writeln('Vvedite 4islo');readln(b);if(b=0) then a:=100;if(b>300) then Begin a:=a-1;writeln('4islo slishkom bolshoe!') End;
if(b mod 8=0) then Begin for c:=1 to 100 do AB[c]:=b;d:=d+1; End; End;
for e:=1 to d do Begin f:=f+AB[e];g:=g+1; End;
h:=f/g;
writeln('Itog ',h);
End.

Проблема в том, что он не находит число h , а точнее пишет 0.00000000E или что-то вроде того.
Укажите, пожалуйста, на мои ошибки и ,если можно, напишите свое решение.

@Puporev · 19.04.2014, 14:54

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var a,k: integer;
    s: real;
Begin
k:=0;
s:=0;
a:=100;
while a<>0 do
 begin
  readln(a);
  if (a mod 8=0)and(a<>0) then
   begin
    inc(k);
    s:=s+a
   end;
 end;
if k=0 then write('Нет чисел, кратных 8')
else
 begin
  s:=s/k;
  write('Itog ',s:0:2);
 end
end.

@n1ghtman · 19.04.2014, 14:56 **[ТС]**

А где тут предел чисел? (можно вводить сколько угодно до 100 чисел.Каждое число не должно превышать 300.)

@Puporev · 19.04.2014, 15:00

Обычно такие задачи на проверяющих сайтах и они сами осуществляют ввод, но если тебе нужно, то можно добавить проверку ввода.

@n1ghtman · 19.04.2014, 15:01 **[ТС]**

Это задача из ОГЭ , так что в решении должно быть все, чего от меня требуют...

@Puporev · 19.04.2014, 15:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Var a,i,k: integer;
    s: real;
Begin
k:=0;
s:=0;
a:=100;
i:=0;
while a<>0 do
 begin
  repeat
  readln(a);
  until(a>=0)and(a<=300); //ограничение 1..300
  if a<>0 then inc(i);
  if i=100 then a:=0; //ограничение ввлда 100 чисел, не считая 0
  if (a mod 8=0)and(a<>0) then
   begin
    inc(k);
    s:=s+a
   end;
 end;
if k=0 then write('Нет чисел, кратных 8')
else
 begin
  s:=s/k;
  write('Itog ',s:0:2);
 end
end.

Добавлено через 49 секунд

Сообщение от n1ghtman

Это задача из ОГЭ , так что в решении должно быть все, чего от меня требуют...

В первую очередь ТВОИ знания а не форумная халява...

@n1ghtman · 19.04.2014, 15:17 **[ТС]**

Я понимаю, у меня ОГЭ пробник 100% , но мне , для себя, надо разобраться с этой задачей.Кстати, спасибо за ответы.

Новые блоги и статьи Все статьи Все блоги /
Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .	Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .	Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .
Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .	Аугментация изображений с Python AI_Generated 18.05.2025 Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .	Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .

@n1ghtman 3 / 3 / 2 Регистрация: 27.06.2013 Сообщений: 139
	19.04.2014, 14:56 [ТС]
	А где тут предел чисел? (можно вводить сколько угодно до 100 чисел.Каждое число не должно превышать 300.) 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	19.04.2014, 15:00
	Обычно такие задачи на проверяющих сайтах и они сами осуществляют ввод, но если тебе нужно, то можно добавить проверку ввода. 0

@n1ghtman 3 / 3 / 2 Регистрация: 27.06.2013 Сообщений: 139
	19.04.2014, 15:01 [ТС]
	Это задача из ОГЭ , так что в решении должно быть все, чего от меня требуют... 0

@n1ghtman 3 / 3 / 2 Регистрация: 27.06.2013 Сообщений: 139
	19.04.2014, 15:17 [ТС]
	Я понимаю, у меня ОГЭ пробник 100% , но мне , для себя, надо разобраться с этой задачей.Кстати, спасибо за ответы. 0

Опции темы

ОГЭ по информатике.Задание C2.2

Решение