Робот исполнитель КуМир

Вложенные циклы(цикл в цикле)

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

т.к все для представления текстовой информации (прописные и строчные буквы и латинского алфавитов, цифры, знаки и символы) требуется 256 различных знаков

var a,b,c: real;

begin

  read(a,b,c);

  writeln('v = ', a*b*c);

  writeln('s = ', 2*(a*b+b*c+a*c));

end.

вариант покороче

1)сравниваем первые два

2)больший сравниваем с третим

3)больший сравниваем с четвертым

все неравенства выписываем и становится очевидно какой самый большой и какой самый маленький.

4) возможно придется сравнить средние арбузы