profile
Опубликовано 5 лет назад по предмету Информатика от nashclass1

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

  1. Ответ
    Ответ дан Аккаунт удален
    // 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

    1. Ответ
      Ответ дан Аккаунт удален
      Просто убрал лишнее, но ничего не менял, кроме описания m
Самые новые вопросы