Тетрадь стоит 1200 руб. Саша купил X тетрадей. Сколько он заплатил за покупку?
Результат работы программы:
Введите количество тетрадей:
8
Стоимость покупки = 9600

program Hello; // Pascal [fpc 3.0.4]

var a,b,c:double;

begin

   writeln ('Введите стоимость тетради');

   readln(a);

   writeln ('Введите количество тетрадей');

   readln(b);

   c:=a*b;

   writeln ('Количество купленных тетрадей:', b);

   writeln ('Стоимость покупки:', c);

end.

сидерический год.

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.