Три однокласника - влад, тимур и юра - встретились через 12 лет после окончания школы. выяснилось, что один из них стал врачом, другой - , а третий - юристом. один полюбил туризм, другой - бег, а стретий - регби. юра сказал, что на туризм ему не хватает времени, хотя его сестра - единственный врач в семье - заядлый турист. врач сказал, что он разделяет увлечение колеги. забавно, но у двоих из друзей в названиях их профессий и услечений не встречается ни одна буква их имён. определите, кто чем любит заниматься в свободное время и у кого какая профессия.

ошибки в программе:

program primer - не хватает точки с запятой

var a,b: integer;

begin ; - не ошибка, необязательная точка с запятой

  readln( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

  s=a+b; - не хватает двоеточия в : =

  m: =a*b;

  d: =a: b; - переменная d не была описана; деление - это /

  writeln(s);

  writeln(m);

  writeln(d)

end - не хватает точки.

 

исправленная программа:

program primer;

var a, b: integer;

  d: real;

begin

  readln(a, b);

  s : = a + b;

  m : = a * b;

  d : = a / b;

  writeln(s);

  writeln(m);

  writeln(d)

end.

// pascalabc.net 3.1, сборка 1246 от 23.05.2016 begin   var s: =readalllines('1.txt');   writeln('считано: '); s.println(newline);   var a: =s.select(x-> x.replace('; ',' '       .joinintostring.toreals.where(x-> (x> 0) and (frac(x)=0))       .select(x-> trunc(;   writeln('получено: '); a.println();   writeln('справочно: тип а - ',a.gettype); end. тестовое решение считано: 1; -312; -41.11; 412.11 43.63; -15; 27; 7.62; 3; -14 1342; 23.23; -32.19; 18 получено: 1 27 3 1342 18 справочно: тип а - system.int32[] тестовый файл 1.txt дан во вложении.