Задание: Напишите программу, которая в последовательности чисел определяет максимальное число, оканчивающееся на 1. На вход программа получает числа: 3, 11, 21, 31. Количество чисел не превышает 1000. Величина чисел не превышает 30000.
Я пишу программу:
var n, a, i:integer;
begin
readln(n);
min(n) :=30001; (вот здесь он ругается "нельзя присвоить левой части")
for i:=1 to n do
begin
readln(a);
if (a mod 16 = 0) and (a then min:=a;
end;
writeln(min);
end.

Что не так??? Объясните И если есть еще ошибки, исправьте

Показать ответ

Ответ:

Rj7

06.05.2023 15:31

То же задание, только другой вывод? Ну, вот например, несколько вариантов (все выводят одно и то же- ну, если конечно на вход подавать число, указанное в задании, а не что попало :)

1) текстовый вариант (запрашиваемое число вводится сразу в текстовом виде):

алг

нач

лит т

вывод "Введите четырёхзначное число",нс

ввод т

вывод т[1],"+",т[2],"=",Цел(т[1],0)+Цел(т[2],0),", "

вывод т[3],"*",т[4],"=",Цел(т[3],0)*Цел(т[4],0)

кон

2) числовой вариант (простой):

алг

нач

цел а,б,в,г,д

вывод "Введите четырёхзначное число",нс

ввод а

д:=mod(а,10);а:=div(а,10)

г:=mod(а,10);а:=div(а,10)

в:=mod(а,10);а:=div(а,10)

б:=mod(а,10)

вывод б,"+",в,"=",б+в,", ",г,"*",д,"=",г*д

кон

3) числовой вариант (так себе):

алг

нач

цел а,ц

цел таб т[1:4]

вывод "Введите четырёхзначное число",нс

ввод а

нц для ц от 1 до 4

т[ц]:=mod(а,10)

а:=div(а,10)

кц

вывод т[4],"+",т[3],"=",т[4]+т[3],", ",т[2],"*",т[1],"=",т[2]*т[1]

кон

4) число-текстовый вариант (ерунда какая то, типа если не очень то, что в первом варианте число вводится как текст) -цикл перевода сделан для разнообразия, и так то заменяется одним алгоритмом, переводящим всё число сразу- цел_в_лит(а), при этом и начальное значение т задавать не надо.

алг

нач

цел а

лит т=""

вывод "Введите четырёхзначное число",нс

ввод а

нц 4 раз

т:=символ(48+mod(а,10))+т

а:=div(а,10)

кц

вывод т[1],"+",т[2],"=",Цел(т[1],0)+Цел(т[2],0),", "

вывод т[3],"*",т[4],"=",Цел(т[3],0)*Цел(т[4],0)