Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
Начало программы
С = 0
начало цикла от 1 до 5
ввод А
В = целая часть от А
если В = А, тогда С = С + 1
конец цикла
печать В
конец программы
1. Горизонтальной линейки
2.обычный-полужирный курсив-полужирный-курсив
3.второй символ
4.форматирование
5. 9 строк 8 столбцов
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
Программа для машины Поста - в прилагаемом файле.
Программа выполнена в тренажере К Полякова.
а) если уменьшаемое равно вычитаемому, то на ленте останется одна метка (что соответствует значению 0);
б) если уменьшаемое меньше вычитаемого, то будет ошибка "Повторное стирание метки".