С а на 24 и дальше!!!!!!!!!!!!!!!!!!!!!!!!
58 задание.
первая таблица
0 1 1 1 1
0 1 1 0 1
0 1 0 1 1
1 0 0 0 0
вторая таблица
0. 1. 1. 1. 1
1. 0. 1. 0. 0
1. 0. 0. 1. 0
1. 0. 0. 0. 0
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
При X меньшем или равном(<=) 90