Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ks907216
21.06.2020 16:04 •
Информатика
Задание: Заполните таблицу. Временный промежуток, ученый, изобретение вид робота, описание изобретения робота.
👇
Увидеть ответ
Открыть все ответы
Ответ:
karuna4
21.06.2020
//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 оценок)
Ответ:
тупой177
21.06.2020
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
a.Println(3)
end.
Пример
n= 13
1 1 1 1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2 2 0
3 3 3 3 3 3 3 3 3 3 3 0 0
4 4 4 4 4 4 4 4 4 4 0 0 0
5 5 5 5 5 5 5 5 5 0 0 0 0
6 6 6 6 6 6 6 6 0 0 0 0 0
7 7 7 7 7 7 7 0 0 0 0 0 0
8 8 8 8 8 8 0 0 0 0 0 0 0
9 9 9 9 9 0 0 0 0 0 0 0 0
10 10 10 10 0 0 0 0 0 0 0 0 0
11 11 11 0 0 0 0 0 0 0 0 0 0
12 12 0 0 0 0 0 0 0 0 0 0 0
13 0 0 0 0 0 0 0 0 0 0 0 0
P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!
4,5
(13 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
10.09.2020
Как подобрать симпатичные наряды: советы эксперта по моде...
В
Взаимоотношения
10.02.2023
Как привлечь внимание своего парня: 5 советов, чтобы выглядеть горячей штучкой...
И
Искусство-и-развлечения
26.03.2021
Как найти свой танцевальный стиль?...
К
Компьютеры-и-электроника
23.02.2021
Битмоджи на Facebook: Как произвести впечатление на своих друзей...
С
Стиль-и-уход-за-собой
04.06.2021
Избавляемся от перхоти натуральными средствами...
С
Стиль-и-уход-за-собой
24.08.2022
Как избавиться от прыщей на спине...
К
Кулинария-и-гостеприимство
01.02.2021
Как растопить белый шоколад: лучшие способы и советы...
Д
Дом-и-сад
09.05.2023
Получаем безупречное качество: как покрасить металл?...
К
Кулинария-и-гостеприимство
12.08.2022
Солнечная печь - новая технология в экологическом решении...
З
Здоровье
07.01.2021
Как набрать жир: эффективные способы набора массы тела...
Новые ответы от MOGZ: Информатика
isakdzhanova
25.12.2022
Вопрос по pascal abc. при запуске программы ввожу одно число жму enter чтобы ввести ещё число но ничего не происходит....
seva0311
30.09.2021
Составить программу вычисления среднего арифметического первых 50 чисел много...
Happy0cake
01.07.2021
Звуковая плата производит двоичное кодирование аналогового звукового сигнала. Какое количество информации необходимо для кодирования каждого из 65 536 возможных уровней...
zubayr3
01.07.2021
1.Найдите сумму и разность чисел (A+B, A-B, B-A) с машинных кодов в восьмиразрядной машинной сетке A=23, B=13 2.Представить вещественное число в нормализованной форме с...
лина574
09.05.2022
Выбери допустимые имена файлов. |zima|**..ggb science.ggb *zima\.ggb zima?.gif science:??..ggb zima.gif...
Kat11166
02.02.2022
мне :). Можешь делать всё что угодно, только правильно напиши :)...
semzolotov
06.05.2022
Запишите число, которое будет напечатано в результате выполнения следующей программы решить...
fedushkinmax
23.08.2020
1. Давайте вспомним, для чего предназначен текстовый редактор. 2. С каких клавиш можно переключить клавиатуру с английского языка на русский и наоборот? 3. Какая клавиша...
varabunia12
05.06.2022
Выполни в тетради или на компьютере. Запишите назначение портов. (Фото результата отправить учителю) ( )...
chartenok88201ovseez
05.05.2023
Вычислите логические значения следующих высказываний: 1) ( В минуте 70 секунд ) ИЛИ ( Работающие часы показывают время ); 2) (28 7) И (300/5 = 60); 3) ( Телевизор - электрический...
MOGZ ответил
Что будет если человек не сможет спать...
Лесные жители какой падеж у существительного?...
На сколько можно увеличить число 58,72,81,16,27, чтобы в записи кадого...
Потолок в помещение или помещении. как правильно пишется?...
Расставить знаки припенания пришла зима выпал пушистый снег снежинки...
Что такое «водяное общество» в романе м. ю. лермонтова «герой нашего...
Это персонаж повести пушкина покинул францию и приехал в россию на ловлю...
Напиши название дерева и названии шишки...
Какими людьми тебе представляются люся катунина и боря антохин...
На гладкой горизонтальной поверхности расположены два бруска массами...
Полный доступ к 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