,! информатика, паскаль. составить программу вывода 10 целых чисел на экран.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

include < iostream>

using namespace std;

int main()

{int n;

  cin > > n;

switch(n)

        {case 1: cout< < "i"; break;

          case 5: cout< < "v"; break;

          case 10: cout< < "x"; break;

          case 50: cout< < "l"; break;

          case 100: cout< < "c"; break;

          case 500: cout< < "d"; break;

          case 1000: cout< < "m"; break;

        }

return 0;

}

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики