Var ar:array[1..10] of real; i:integer; begin; for i:=1 to 10 do readln(ar[i]); writeln('OK:'); for i:=1 to 10 do if frac(sqrt(ar[i]))=0 then writeln(ar[i]); end.
ответ: Отложим в сторону тринадцатую монету, а остальные обозначим следующим образом: FAKE MIND CLOT Теперь взвешиваем одну четверку против другой по такой схеме: 3 монеты принимают участие в трех взвешиваниях 3 - только в одном 6 - в двух. Например: FANO - KECT, AKNC - FMDL, FKIL - ADOT Например, если результаты взвешивания будут такими: слева легче, равно, слева тяжелее, значит фальшивой будет монета, обозначенная буквой O. Причем, фальшивая монета будет легче настоящих. А что если фальшивой окажется все-таки отложенная нами, тринадцатая монета? Все очень просто: в этом случае при всех трёх взвешиваниях весы будут сбалансированы. К сожалению в этом случае нам не узнать легче или тяжелее тринадцатая монета, но в условии такого требования и не было.
1. Короткое решение для числа произвольной длины (на символьной строке)
var s:string; c:char; begin Write('Введите натуральное число: '); Readln(s); Write('введите искомую цифру: '); Readln(c); if Pos(c,s)>0 then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 4 Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var s,c:integer; brk:boolean; begin Write('Введите натуральное число: '); Read(s); Write('введите искомую цифру: '); Read(c); brk:=false; repeat if s mod 10=c then brk:=True; s:=s div 10 until brk or (s=0); if brk then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 6 Такой цифры в числе нет
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if frac(sqrt(ar[i]))=0 then writeln(ar[i]);
end.