Перечислить приклеивания элементов на основу. УМОЛЯЮ ЭТО ЗАДАНИЕ ПО ТЕХНОЛОГИИ 7 КЛАСС

Question

Другие предметы: Перечислить приклеивания элементов на основу. УМОЛЯЮ ЭТО ЗАДАНИЕ ПО ТЕХНОЛОГИИ 7 КЛАСС

Mokysya · Accepted Answer

Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. Но программа работает как надо по вашему заданию. При чем вводить можно даже числа из девяти знаков function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) 0 then begin Result := True; for k := 1 to length(x) do if not (x[k] in [ 0 .. 9 ]) then begin Result := False;  //...

MOGZ ответил