Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>
1) E) логический
2) <span>C) иерархическая, сетевая, реляционная, объектно-ориентированная;
3) </span><span>D) sqr(x)+sqr(y)<=sqr(R);
4) </span><span>B) (x>=0)or(y>=0);
5) </span><span>A) 10; (А =9 В=1 C=0)</span>
Компьютер
.................
в ответе получается более 50 000 цифр и сюда они не помещаются(
язык исполнения - Ruby
def numbers_sum(n)
n = n.to_s.chars
sum = 0
n.each do |c|
sum += c.to_i()
end
return sum
end
for i in 0..999999
s = ("000000"+i.to_s())[-6..-1]
if numbers_sum(s[0..2])==numbers_sum(s[3..5])
p s
end
end