Добавить защиту от дурака (на ввод букв вместо цифр) - Pascal ABC

  1. помогите, пожалуйста сделать защиту от дурака, чтобы если вместо ввода чисел будут введены буквы, программа выдавала сообщение о том, что стоит повторить попытку. до тех пор,пока не будут введены цифры.


textual

Код к задаче: «Добавить защиту от дурака (на ввод букв вместо цифр) - Pascal ABC»

var s:string;
a:real;
k:integer;
begin
Writeln('Введите число: ');
Readln(s);
val(s,a,k);
if (k<>0) then
begin
repeat
Writeln('Povtorite');
Readln(s);
val(s,a,k);
until (k=0);
end;
Writeln('Число=',a);
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.000 из 5



Похожие ответы
  1. 1.В заданной строке добавить в конец строки символ " ".

  1. Дан текст(массив строк, любой не большой текст). Составить программу, которая будет добавлять после каждой буквы "о" букву "а" в скобках - "(а)".

  1. Добавить меню выбора режима шифрование, расшифровка. Проверку цифр ( если отрицательное число-ошибка).И если можно еще комментарии к программе

  1. Вот программа, нужно добавить процедуру, которая последний элемент ставит на 1 место, помогите пожалуйста.

  1. Помогите надо в эту программу добавить процедуру создать процедуру поиска и вывода сотрудниц страше 50 лет.

  1. Программа написана, нужно добавить процедур и функций: заменить процедурой ввод, второй вывод, функцией найти максимум и второй функцией индекс этого максимума. Блок-схема имеется. Было бы очень неплохо, если бы написали, какие переменные глобальные, локальные, формальные, фактические, параметры-значения и параметры-переменные. Короче, описание переменных. Не дружу я с этой темой. Во вложениях сама задача, программа и блок-схема.Имя матрицы и размерыДействияУсловия и ограниченияB(50)Определить максимальныйэлемент массива B и егопорядковый номерXi>0(Здесь была фотография с текстом программы)

  1. Вот сама программа, нужно сделать так, чтобы, например, при вводе числа 19 в 9й СС выкидывало из программы (exit).

  1. Дана действительная матрица размерности (n x n) Если на главной диагонали стоят минимальные элементы столбцов, то ко всем элементам, расположенным над главной диагональю добавить среднее арифметическое элементов стоящих под главной диагональю. В противном случае матрицу оставить без изменения. не совсем понимаю как это сделать, помогите!