Решение задачи в паскале

[Kore]

Требуется что бы во время запроса оценки не выкидывало при вводе букв,а просило ввести цифру.....






Program Ifit;
Uses crt;
Var sub:array[1..4] of string;
Grades:array[1..4,1..4] of integer;
i,j:integer;
begin
Clrscr;
For i:=1 to 3 do
Begin
Write(‘какой предмет?’);
Readln(sub[i]);
For j:=1 to 3 do
Begin
Write(‘студент ‘,j,’ оценка: ‘);
Readln(grades[i,j]);
End;
End;
Writeln;
Writeln(‘предмет || студент 1 || студент 2 || студент 3 || средний балл’);
For i:=1 to 3 do
Writeln(sub[i],’ ‘,grades[i,1],’ ‘,grades[i,2]
,’ ‘,grades[i,3],’ ‘,
(grades[i,1]+grades[i,2]+grades[i,3])/3:1:1);
Writeln(‘ Sredniy.bal ‘,(grades[1,1]+grades[2,1]+grades[3,1]/3:1:1,’ ‘,
(grades[1,2[+grades[2,2]+grades[3,2])/3:1:1,’
(grades[1,3]+grades[2,3]+grades[3,3]/3:1:1);
End.

[eoln]

repeat
  readln(s); //s - типа string;
  val(s, grades[i,j], q); //q - типа integer
  if q <> 0 then writeln('это не число')
until q = 0

[Kore]

Сообщение от eoln

repeat
  readln(s); //s - типа string;
  val(s, grades[i,j], q); //q - типа integer
  if q <> 0 then writeln('это не число')
until q = 0

Можешь показать куда именнно это прописывать(я в програмировани ноль)))

[RUSt88]

понятно, что и этот код писал не ты

это надо поставить там, где у тебя есть Readln(grades[i,j]);
Не забудь объявить переменные (надеюсь ты знаешь как это сделать)

Write(‘студент ‘,j,’ оценка: ‘);
repeat
readln(s); //s - типа string;
val(s, grades[i,j], q); //q - типа integer
if q <> 0 then writeln('это не число')
until q = 0
Readln(grades[i,j]);

[ОДИНОЧЕСТВО В СЕТИ]

2Rust88 точнее вот так должно быть

Write(‘студент ‘,j,’ оценка: ‘);
repeat
readln(s); //s - типа string;
val(s, grades[i,j], q); //q - типа integer
if q <> 0 then writeln('это не число')
until q = 0;