Оценки школьника за четверть заданы в виде строки символов.подсчитать средний балл школьника. помогите пожалуйста, контрольная!
10-11 класс
|
uses crt;
var c:char;
n:integer;
sr:real;
begin
writeln('Введите в строку оцеки от 2 до 5 без пробелов, оеончание ввода Enter');
sr:=0;
n:=0;
repeat
c:=readkey;
if c in ['2'..'5'] then
begin
write(c);
n:=n+1;
sr:=sr+ord(c)-48;
end;
if c=#13 then writeln;
until c=#13;
sr:=sr/n;
write('Средняя оценка=',sr:0:1)
end.
Другие вопросы из категории
1) 19 кБ
2) 26кБ
3) 25 кБ
4) 57 кБ
5) 42 кБ
6) 30 кБ
к может добавить в кучу два камня или увеличить количество камней в куче в два раза. Например, имея кучу из 15 камней, за один ход можно получить кучу из 17 или 30 камней. У каждого игрока, чтобы делать ходы, есть неограниченное количество камней. Игра завершается в тот момент, когда количество камней в куче становится не менее 25. Победителем считается игрок, сделавший последний ход, то есть первым получивший кучу, в которой будет 25 или больше камней.
В начальный момент в куче было S камней, 1 ≤ S ≤ 24.
1. При каких S: 1а) Петя выигрывает первым ходом; 1б) Ваня выигрывает первым ходом?
2. Назовите три значения S, при которых Петя может выиграть своим вторым ходом?
3. При каком S Ваня выигрывает своим первым или вторым ходом?
а) 57.
Как это сделать?
Читайте также
что он получил тройку несёт 3 бита информации. Сколько троек получил ученик за четверть?
несёт 2 бита информации. Сколько пятёрок ученик получил за четверть?
(распишите пожалуйста по действиям с формулой N=2^i)
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
шахматного поля?
4) Какое минимальное количество бит потребуется для кодирования положительных чисел, меньших 60?
5) Двое играют в «крестики-нолики» на поле 4 на 4 клетки. Какое количество информации (в битах) получил второй игрок, узнав ход первого игрока?
6) В корзине лежат 8 черных шаров и 24 белых. Сколько бит информации несет сообщение о том, что достали черный шар?
7) В коробке лежат 64 цветных карандаша. Сообщение о том, что достали белый карандаш, несет 4 бита информации. Сколько белых карандашей было в коробке?
8) За четверть Василий Пупкин получил 20 оценок. Сообщение о том, что он вчера получил четверку, несет 2 бита информации. Сколько четверок получил Василий за четверть?
9) В корзине лежат черные и белые шары. Среди них 18 черных шаров. Сообщение о том, что достали белый шар, несет 2 бита информации. Сколько всего шаров в корзине?
10) В закрытом ящике находится 32 карандаша, некоторые из них синего цвета. Наугад вынимается один карандаш. Сообщение «этот карандаш – НЕ синий» несёт 4 бита информации. Сколько синих карандашей в ящике?
случае надо следить за текущей позицией в строке и при вводе очередного "слова" контролировать, чтобы его длина плюс текущая позиция не превысили длины строки. в QBasic