За даними, що містяться в електронній таблиці Успішність (завдання 11), створіть про- граму для визначення, чи всі учні здали тест успішно. Успішне проходження тесту означає, що кожен учень, який проходив тестування, одержав оцінку, вищу за 6 балів. Вхідні дані — бали, одержані учнями після завершення тестування. Вихідні дані — текстове повідомлення «так» чи «ні».
Program P7; Var a,b,c:real; Begin a:=6; c:=13; Write( 'Введіть оцінку' ); Read( b ); If b<c then If b>a then WriteLn( 'Так' ) else WriteLn( 'Ні' ) else WriteLn( 'Оцінки не існує' ) end.
Не, у тебя не по условию программа! там же надо ряд оценок вводить, и если из этих оценок хотя бы одна будет 6 тогда ответ НЕТ, елсе ДА. А ты вводишь только одну оценку! не правильно!
var a:array[1..10] of byte; i:integer; begin writeln('vvedite ocenki'); for i:=1 to 9 do read(a[i]); for i:=1 to 9 do if a[i]>6 then writeln(i,'-ий',' пройшов') else writeln(i,'-ий ',' не пройшов'); end.
ах да, я просто решаю задачи в олимпиадном стиле. То есть, данные на ввод могут быть разные, а по скольку в оценивании ДПА учитывается удобство работы пользователя с программой, то ввод количества повторений
Код
writeln('Введите количество учеников, сдававших тест'); readln(n); for i:=1 to n do
намного удобнее, чем лазить по программе и искать, где изменить число, либо константу
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
