Var a,b,c,x:integer;
begin
x:=random (899) +100;
writeln('x= ', x);
a:= x div 100; {первая цифра}
b:=(x mod 100) div 10; {вторая цифра}
c:= x mod 10; {третья цифра}
writeln(a,',',b,',',c);
end.
Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
Первое встречающееся число это 5(10) или 11(4). Затем числа, оканчивающиеся на 11(4) встречаются через 100(4) или 16(10). Поэтому числа будут такие: 5, 5+16=21, 5+32=37, 5+48=53...
5, 21, 37, 53, 69, 85, 101. Следующее будет уже 117.
Var a,b,c:integer;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
writeln(sqrt(a)+sqrt(b)+sqrt(c))
else
writeln('Одно из чисел отрицательное');
<span>end.</span>
Наука+учеба=работа
Следовательно убираем не нужное. Повторяющееся.
нука+уче=рот
у встречается 2 раза. допустим это ноль.
нка+че=рот
Под эти буквы, можно поставить любые числа. Но что бы если нка это например 185, то че должно быть больше 15. Что бы Например 94. В итоге ответ 279. Цифры совпадают по буквам, нормально.