X mod 7 <> 0
y <> 0
(x>-5) and (x<10)
(x>=-1) and (x<=1)
Ответ А22Е24
Т.к к исходной А мы прибавляем 1 и умножаем на 2.
В, Г, Д, Е, Ё идут по порядку в алфавите.
А цифры после просто умножаются на 2.
Повторяешь условия цикла, заданое количество раз
// PascalABC.NET
begin
var num: integer;
while true do
begin
num := ReadlnInteger('введите 4-х значное число, num =');
if (num > 999) and (num <= 9999)
then break;
end;
var str := num.ToString;
foreach var x in str do
Println(x)
end.
Выставляете всё на форм1. На кнопку кликаете 2 раза. И всё переписываете как у меня. Всё работает) Главное внимательно переписть. Это Лазарус