Напишите программу для решения . в видеоигре игрок выигрывает 50 очков, если он сбивает самолет,100 очков, если он сбивает ракету, 200 очков, если он сбивает спутник. составьте программу, которая выведет на экран число очков игрока, который сбил а самолетов, в ракет и с спутников.

Var a, b, c, d: integer; begin writeln('ведите сколько вы сбили самолётов: '); readln(a); writeln('ведите сколько вы сбили ракет: '); readln(b); writeln('ведите сколько вы сбили спутников: '); readln(c); a: =a*50; b: =b*50; c: =c*50; d: =a+b+c; writeln('у вас ', d, ' очков'); end.

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;