<span>1) 23 13 <u>456</u> 76 45 - все числа двухзначные, а он трехзначный.
</span><span>2) 262 452 <u>765</u> 344 - все числа четные, а он не четный.
</span><span>3) 123 234 345 <u>543</u> - все числа идут на возрастание, а он на убывание.</span>
Var
x1, y1, x2, y2, i: integer;
begin
Write('Введите через пробел исходные номера улицы и авеню: ');
Readln(x1, y1);
Write('Введите через пробел конечные номера улицы и авеню: ');
Readln(x2, y2);
Writeln('Найденный путь:;');
if x2 > x1 then for i := x1 to x2 - 1 do Write('E')
else for i := x1 downto x2 + 1 do Write('W');
if y2 > y1 then for i := y1 to y2 - 1 do Write('N')
else for i := y1 downto y2 + 1 do Write('S');
Writeln
end.
Тестовое решение:
Введите через пробел исходные номера улицы и авеню: 1 3
Введите через пробел конечные номера улицы и авеню: 4 1
Найденный путь:;
EEESS
Введите через пробел исходные номера улицы и авеню: 58 49
Введите через пробел конечные номера улицы и авеню: 36 23
Найденный путь:;
WWWWWWWWWWWWWWWWWWWWWWSSSSSSSSSSSSSSSSSSSSSSSSSS
Держи программу на паскале, если есть вопросы, то пиши
program test1;var x,y,K,N:integer;beginwrite('Введите размер конверта х и у см');read(x);read(y);write('Введите размер открытки K и N см');read(K);read(N);if (x>=K) and (y>=N) thenwrite('открытка войдет')else write ('не войдет');end.
uses crt;
var
n:integer;
begin
n:=0;
repeat
n:=n+3;
until keypressed;
write(n);
end.
ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....