• 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

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

      peters
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.0, сборка 1088program priml;var  a: integer;  m: string;begin  a := 0;  writeln('Столица Англии?'); readln(m);  if (m = 'Лондон') or (m = 'лондон') then a := a + 5;  writeln('Ваша оценка ', a)end.Тестовое решение:Столица Англии?лондонВаша оценка 5
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years