- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
4758 р от от. л. ллллл о. тл тл от. оооо. оои. о.
1 0 0 0
- 1 1
----------
1 0 1
1 0 0 1 1
+ 1 0 1 1
---------------
1 1 1 1 0
1 0 1
x 1 0 1
-----------------
1 0 1
+ 1 0 1
----------------
1 1 0 0 1
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.