Проверка правильности ввода чисел

@Valsorim · Регистрация: 28.02.2018

Author24 — интернет-сервис помощи студентам

а положительное ,кратное 3, b положительное ,больше 3 ,но не меньше 30
Нужно написать программу которая будет проверять правильность ввода чисел ,если числа будут не правильные ,то нужно сделать повторный запрос. с использованием цикла While...do

@Hitoku · 28.02.2018, 16:42

Pascal

var a, b: integer;
begin
  a := 0; b := 0;
  while (a <= 0) or (a mod 3 <> 0) or (b <= 0) or (b <= 3) or (b >= 30) do begin
    write('a = '); read(a);
    write('b = '); read(b);
  end;
end.

@Valsorim 0 / 0 / 0 Регистрация: 28.02.2018 Сообщений: 3
		1
	Проверка правильности ввода чисел 28.02.2018, 16:36. Показов 1200. Ответов 1 Метки нет (Все метки) а положительное ,кратное 3, b положительное ,больше 3 ,но не меньше 30 Нужно написать программу которая будет проверять правильность ввода чисел ,если числа будут не правильные ,то нужно сделать повторный запрос. с использованием цикла While...do 0

	28.02.2018, 16:42

Проверка правильности ввода чисел

Решение