Определите значение переменной а а: =10 if a< 5 then a: =a+12 else a: =a-7; if a< 5 then a: =a+12 else a: =a-7;

Ответ: 15 'слишком коротко.   напишите минимум 20 символов, чтобы объяснить все.'

ответ:

program hello;

var a,k: string;

var i: integer;

begin

  read(a);

  for i: =0 to length(a) do begin

    k : = k+a[length(a)-i];    

  end;

  write(k);

end.

объяснение:

заводим две переменных типа string(строковой тип данных)

а и к

и еще не забудем счетчик для цикла i

строковой тип данных это массив из символов,то есть мы можем извлекать из него элементы с цикла

объявим цикл for от 0 до длины нашей строки,которую возвращает функция length() и с конкатенации(сложения строк,например: 'a'+'b'= 'ab) добавляем к новой строке "к"   элемент length()-i строки а.

// pascalabc.net 3.0, сборка 1076 const   n=20; { количество дат } type   tdate=record       d: 1..31;       m: 1..12;       y: word   end; var   dates: array[1..n] of tdate;   i: byte;   s,st: string;   begin   randomize;   for i: =1 to n do begin       s: ='';       with dates[i] do begin           d: =random(27)+1;           str(d,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           m: =random(12)+1;           str(m,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           y: =random(51)+1960;           str(y,st);           s: =s+st;           if m in [3..5] then s: =s+' - весенняя';           writeln(s)       end   end end. тестовое решение: 22.12.1979 21.10.1975 25.03.1980 - весенняя 23.04.1967 - весенняя 09.10.1967 16.05.1965 - весенняя 09.08.1996 05.10.2001 10.11.1985 18.08.1970 08.10.1983 01.12.2005 01.01.1994 09.11.1962 14.09.1979 24.03.2008 - весенняя 14.01.2003 22.04.1990 - весенняя 18.08.1969 16.05.2009 - весенняя