Program priml; var a: integer; m:char; begin a:=0; begin writeln('Столица Англии?');...

0 голосов
81 просмотров

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.
Почему не суммирует баллы


Информатика (2.0k баллов) | 81 просмотров
0

Например потому, что m объявить надо string

0

Фрагмент else a:=a можно выбросить, он ничего не делает.

0

не выходит

Дан 1 ответ
0 голосов
Правильный ответ

// PascalABC.NET 3.0, сборка 1088
program priml;

var
  a: integer;
  m: string;

begin
  a := 0;
  writeln('Столица Англии?'); readln(m);
  if (m = 'Лондон') or (m = 'лондон') then a := a + 5;
  writeln('Ваша оценка ', a)
end.

Тестовое решение:
Столица Англии?
лондон
Ваша оценка 5

(142k баллов)
0

Просто убрал лишнее, но ничего не менял, кроме описания m