В компанию поступил большой заказ на автопилоты (A), гироскопы (G) и двигатели системы ориентации (J). От вас требуется написать программу, которая проанализирует выдаваемые роботом строки и подсчитает количество исправных компонентов каждого типа и их процент среди всех собранных деталей этого типа. На входе программы: читаем из входного потока

N - число следующих строк данных
строка1 - строки данных, которые могут содержать интересующие нас символы 'AaGgJj', а также другие символы
...
строкаN

На выходе программы: записываем в выходной поток 6 чисел, по два числа на строку. Первое число целое, это - количество исправных деталей соответствующего типа, второе число - процент исправных деталей от общего количества деталей данного типа. Процент можно округлить до целого числа. Числа должны идти в таком порядке:

число-годных-автопилотов процент-годных-автопилотов
число-годных-гироскопов процент-годных-гироскопов
число-годных-двигателей процент-годных-двигателей

Sample Input:
2

jjJkalieyJrggGyjjAAa

Sample Output:
5 45
2 33
3 38

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

zhalamine

19.06.2020 19:41

Как называется простая фигура для построения которой в графическом редакторе есть специальных инструментарий...

Малиш999

05.05.2021 00:33

Разгадайте кроссворд обработка графической информации 1. разновидность компьютерной графики в которой изображение формируется в виде растра. 2. простая фигура для построения которой...

daria14666

05.05.2021 00:33

Як поділити циферблат годиника прямими на шість частин, так щоб у кожній знихбуло подва числа і їх суми були одинаковими...

semik1232

10.09.2022 21:10

Напишите программмный код на языке програмирования C++ для алгоритма ,предоставленного в виде блок схемы Блок схема: Начало m=5 n=8 s=m*b s Конец...

zadorozhnyakdap0derm

20.11.2022 17:36

Найти среднее значение цифр заданного целого трехзначного числа. Как можно быстро...

Spectator10

24.08.2022 08:28

1. Составить таблицы истинности для следующих логических выражений: F = A & (B&A).F = B & ((A & B)vC).В обоих выражениях над А сверху черточка, во втором выражении...

kocherovavika2005

27.12.2021 22:19

Потрібно написати код на с++. Завдання:Якого значення набуде змінна s після виконання операторів?a)for(s=0, k=1; k =3; k++) for(j=1; j =k; j++) s+=jb)for(s=0, k=1; k =2; k++) for(m=k;...

Nurs147

10.02.2022 22:53

Определите, что будет написано в результате работы следующего фрагмента программы:...

violapi

22.01.2023 07:50

22. Целевая функция … 1) Функция, реализующая какую-либо задачу 2) Функция, оценивающая меру достижения цели для каждого результата решения!! 3) Функция, отображающая процесс функционирования...

даша3648

10.12.2022 15:24

«Компьютерная» технология- нет верного ответа Ообязательно наличие дорогостоящей компьютерной техники. Тяжело Копировать. Компактность хранения....

Ответ:

asino20145

11.07.2022 03:34

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
var a:=ReadAllText('input.txt').ToIntegers;
Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
m:=a.Where(t->t>0).Average
end;

begin
var a:=ReadAllText('input.txt').ToIntegers;
var m:real;
avg(a,m);
Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.

0,0(0 оценок)

Ответ:

co63upo

11.07.2022 03:34

Program arr_length;

const
IN_FILENAME = 'INPUT.txt';
OUT_FILENAME = 'OUTPUT.txt';

var
fileIn,fileOut: TextFile;
s,t: string;

begin
writeln('Загружаю входные данные...');
t := '';
AssignFile(fileIn, IN_FILENAME);
AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку