очень надо, помогите прошу Дано целое число К. Вывести строку-описание оценки, соответствующей числу К (1- "плохо" , 2-
10-11 класс
|
"неудовлетворительно" , 3 - "удовлетворительно" , 4- "хорошо" , 5- "отлично". Если К не лежит в диапазоне 1-5 , вывести "ошибка".
во вложениях скрин Паскаль АВС. должно быть правильно
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Другие вопросы из категории
ОТВЕТЫ,А ДЕЙСТВИЯ!!!
Читайте также
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))
Если она представляет собой запись целого числа, то вывести 1, если
вещественного (с дробной частью) — вывести 2; если строку нельзя
преобразовать в число, то вывести 0. Считать, что дробная
часть вещественного числа отделяется от его целой части десятичной точкой «.».
ПРИПИШИТЕ ДВЕ ЦИФРЫ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 02.03.93 ИСКОМОЕ ЧИСЛО 203)ЕСЛИ ДЕНЬ В ДАТЕ РОЖДЕНИЯ-ЧИСЛО ОТ 10 ДО 31,ТО К ДВУМ ЦИФРАМ ИЗ ОБОЗНАЧЕНИЯ ДНЯ ПРИПИШИТЕ ВТОРУЮ ЦИФРУ ИЗ ОБОЗНАЧЕНИЯ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 23.11.93 ИСКОМОЕ ЧИСЛО 231) мОЯ ДАТА РОЖДЕНИЯ 30.05.95
блок схему. Пожалуйста. Все последние пнк отдаю