Var a,b,m:real;
Begin
Writeln('введите число');
Readln (m);
A:=m div 100;
b:=m div 1000;
Writeln('центнеров',a,'тонн',b);
Readln;
End.
Расширением документов Microsoft Word2017 является Doc
<u>На Паскале:</u>
var a,b,c,x: integer;
begin
writeln('Введите первую цифру: ');
readln(a);
writeln('Введите вторую цифру: ');
readln(b);
writeln('Введите третью цифру: ');
readln(c);
x:=a+b+c;
writeln('x = ',x);
end.
writeln - процедура для записи значений.
readln - процедура считывающая значения с клавиатуры.
Оттуда:
Сложение двух чисел тривиально — достаточно поставить 1 между ними и стереть крайний правый символ у Q. Программа вычитания состоит из последовательного затирания крайних левых меток у Q и правых у P:
1. 0 - стираем левый символ у Q
2. →
3. ? 5, 4
4. Stop - стоп если затерли Q=0
5. ←
6. ? 7, 5 - цикл поиска P
7. 0 - стираем правый символ у P
8. →
9. ? 1, 8 - ищем Q
Отметим, что номер команды перехода не указывается, если переход происходит на следующую по порядку строку (для наглядности текста) . В 6-ой строке возможно зацикливание, если Q > P (вы можете добавить проверку сами)
<span>****только вам нужно сдвинуться в начало строки и учесть пустую клетку-т. е. еще один проскок каретки</span>