Дана программа, содержащая синтаксические и алгоритмические ошибки, исправить их

@Александра2307 · Регистрация: 25.04.2015

Author24 — интернет-сервис помощи студентам

Дана программа, содержащая синтаксические и алгоритмические ошибки. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Представить правильный вариант программы.

Проводится тест на оценку уровня творческого потенциала личности и определения типа творческой личности. Соотношение набранных баллов и уровня творческого потенциала личности, а также типа творческой личности приведено в таблице 1. Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их. Представить правильный вариант программы. В программе: a – количество баллов, b – номер вопроса с максимальным числом баллов

Pascal

Var a,b: real;
Begin
Writeln('Введите два числа:');
Readln(a,b);
if (a>18) and (a<69) then writeln(' низкий  ', 'суммарное число баллов =',a); 
if (a>70) and (a<114) then 
begin
writeln(' средний уровень  ', 'суммарное число баллов =',a);
if b=1 then   writeln('Целеустремленный');
if b=2then   writeln('Эвристический') ;
if b=3 then    writeln('Реформатор');
end;
if (a>115) and (a<162) then 
begin
writeln(' высокий ', 'суммарное число баллов =',a);
if b=1 then   writeln('Целеустремленный');
if b=2 then   writeln('Эвристический') ;
if b=3 then    writeln('Реформатор');
end;
end.

	26.04.2015, 21:26