Регистрация
Marina20012608
27.11.2021 12:22
Информатика
Есть ответ 👍

Даны целые числа a, b, c, d. Составить алгоритм, который умножает меньшее число на большее в программе вижуал басик. ​

272
411
Посмотреть ответы 1

Ответы на вопрос:

Zlatasolnce
Zlatasolnce
4,8(79 оценок)
Var       s: string;       i: longint; begin       read(s);       for i : = 1 to length(s) do              if not((ord(s[i]) > 47)and(ord(s[i]) < 58)) then begin             write(s,' - не является целым число'); exit;         end;       write(s,' - целое число');   end.

Популярно: Информатика