Дано случайное двузначное число. Найти число десятков в нем- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
USES CRT;
VAR a : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("Vvedite dvuznachnoe chislo");
  READLN (a);
  WRITE ("Desyatkov: ");
  WRITELN (a div 10);
END.

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment