Pascal. ) 1) абитурьент сдает четыре экзамена. задан проходной . сообщить о результате приема в институт. 2) вычеркнуть в данной строке каждую к-ю букву.
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.
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.