Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
hshsjsnsvsbsns17282
21.09.2021 15:49 •
Информатика
5. Отметьте знаком авторских прав
элементы, которые используются в качестве знака защиты
Знак
ответ
👇
Увидеть ответ
Открыть все ответы
Ответ:
karuna4
21.09.2021
//Pascal ABC.NET v3.1 сборка 1172
var
ar: array of integer;
n, k2, k3, k4, k5, i: integer;
r: real;
begin
write('Сколько учеников?');
readln(n);
setlength(ar, n);
writeln('Введите оценки:');
for i := 0 to n - 1 do
begin
readln(ar[i]);
case ar[i] of
2: inc(k2);
3: inc(k3);
4: inc(k4);
5: inc(k5);
else
writeln('Не оценка');
exit;
end;
end;
writeln('2:', k2);
writeln('3:', k3);
writeln('4:', k4);
writeln('5:', k5);
write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.
Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7
4,6
(68 оценок)
Ответ:
bar569
21.09.2021
Как-то так
#include <iostream>
using namespace std;
int main(){ cout << "Vvedute kol-vo ocenok" << endl;
int n,i,a,Four,Five; n = i = a = Four = Five = 0;
cin >> n;
for (i = 1; i <= n; i++) { cin >> a; if (a == 4){ Four++;} else if (a == 5) { Five++; } } if (Four > Five){ cout << "Four" << endl;} else if (Five > Four) { cout << "Five" << endl; } else { cout << "Equal"<< endl; } cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl; return 0;}
4,5
(78 оценок)
Это интересно:
Д
Дом-и-сад
03.02.2020
Как быстро и эффективно избавиться от шоколадных пятен...
И
Искусство-и-развлечения
20.08.2020
Школа дома: как не потеряться и организоваться...
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Х
Хобби-и-рукоделие
15.02.2022
Как состарить дерево: советы для создания эффекта возраста...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
С
Стиль-и-уход-за-собой
29.07.2020
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
Новые ответы от MOGZ: Информатика
Линда133
08.03.2020
Назовём натуральное шестизначное число N (100000 ≤ N ≤ 999999) счастливым, если суммы трёх его первых и трёх последних цифр равны. Найдите количество таких чисел. Python...
Лаки2005
19.03.2022
Разработать программу для вычисления выражения q=0,23*2^2 -2,44/e^2.44*2 -1...
Мирандалина1414
04.03.2022
Не могу после того, как вводишь значение n - программа зависает и ничего не делает (pascal abc). в чём проблема? uses crt; var s,n,i,x: integer; a: array[1..100] of integer;...
Wikwsejjj
02.02.2023
Сколько натуральных чисел удовлетворяет неравенству: 3168 x de16...
alesh123456
13.06.2021
Яка з перелічених програм не є архіватором? winzip drweb 7-zip winrar...
оля2044
04.06.2022
информатика . 1. дан одномерный массив из 10 целых чисел,заданных с клавиатуры. найти сумму элементов этого массива меньших 6. 2. дан одномерный массив из 9 целых чисел,...
Niker04
23.01.2022
)) 2. написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам....
braaauberg
08.11.2021
Вычислить значение выражения 14⁸(восьмеричная система)+АВ¹⁶(шестнадцатиричная)=?²(должно получиться в двоичной)...
aaa1616
08.12.2021
1. Линейный вычислительный процесс Даны целые числа x, y ,z. Вычислить значение выражений:...
Lulu84
03.01.2023
Там 1 задание, просто шесть раз повторяется Упростите логическое выражение информатика 8 класс...
MOGZ ответил
ответьте на 3 вопроса. 1.who are the friends of the earth? 2. who/what...
Поставь пропущенные буквы записи глаголы в два столбика. глаголы: завед...
На складе было 4 ряда красных детских автомобилей по 14 машин в каждом...
Придумать названия рыб,котороые обитают в море...
)вычислите объем кислорода (н.у),необходимого для сжигания 0,2 моль сероводорода.как...
Каким образом человек умелый созбавал свои орудия труда?...
За последние 5 лет было обнаружено 53 кометы из них 3 года по 11 комет...
К24 л раствора, содержащего 30 % соли, надо добавить воду так, чтобы...
Диктанты для 3 классов ласточки текст...
Сестра нашла x грибов,а брат в 2 раза больше .сколько грибов нашёл брат?...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var
ar: array of integer;
n, k2, k3, k4, k5, i: integer;
r: real;
begin
write('Сколько учеников?');
readln(n);
setlength(ar, n);
writeln('Введите оценки:');
for i := 0 to n - 1 do
begin
readln(ar[i]);
case ar[i] of
2: inc(k2);
3: inc(k3);
4: inc(k4);
5: inc(k5);
else
writeln('Не оценка');
exit;
end;
end;
writeln('2:', k2);
writeln('3:', k3);
writeln('4:', k4);
writeln('5:', k5);
write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.
Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7