Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
Все просто! Ввод, вывод и память в машине тюринга представляют собой ленту, разделенную на ячейки. в каждой ячейке или символ или она пустая. ПРОЦЕССОР МАШИНЫ СПОСОБЕН ЗА ОДИН РАЗ РАССМОТРЕТЬ ТОЛЬКО ОДНУ ИЗ ЯЧЕЕК. ОН МОЖЕТ СТЕРЕТЬ СИМВОЛ В ЭТОЙ ЯЧЕЙКЕ, ЗАПИСАТЬ ДРУГОЙ, ПЕРЕМОТАТЬ ЛЕНТУ ВПЕРЕД-НАЗАД НА НЕСКОЛЬКО ЯЧЕЕК.<span>
</span>
В какой среде работаешь? каккая программа уточни ато никто не ответит .
LOOKUP(C2,H$2:H$6,I$2:I$6)