program priml;
var a: integer;
m:char;
begin
a:=0;
begin
writeln('Столица Англии?');
readln(m);
if (m='Лондон')or (m='лондон')then a:=a+5 else a:=a;
writeln ('Ваша оценка',a);
end;
end.
Почему не суммирует баллы
Самые новые вопросы
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.