Участок цеха по производству туристического снаряжения выпускает туристические палатки. Определить количество брезента, необходимое для выполнения участком месячного плана- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
USES CRT;
VAR x, y : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("mesyachniy plan: ");
  READLN (x);
  WRITE ("kol-vo brezenta dlya odnoj palatki: ");
  READLN (y);
  WRITE ("Summa: ");
  WRITE (x * y);
END.

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

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

Leave a Comment