Question

Pascal. Помогите пожалуйста) 1) Абитурьент сдает четыре экзамена. Задан проходной балл. Сообщить о результате приема в институт. 2) вычеркнуть в данной строке каждую к-ю букву.

Answer 1

Const n = 4;
var x, y, z: real;
  i: integer;
begin
  write('проходной балл = '); 
  readln(x);
  for i := 1 to n do begin
    write('оценка ', i, ' = '); 
    readln(z);
    y := y + z;
  end;
  if y/n >= x then 
    writeln('поступил')
  else
    writeln('не поступил');
end.


// Вторая
var i, k: integer;
  a, b: string;
begin
  write('k = ');
  readln(k);
  write('строка = ');
  readln(a);
  for i := 1 to Length(a) do
    if i mod k > 0 then 
      b := b + a[i];
  writeln(b);
end.