Код для проверки
def Avtomat(chislo)
s = chislo.to_s
if s.length == 4
s = s[0..-2] + "1"
end
if s.length == 3
s = (2*(s[0].to_i)).to_s + s[1..-1]
end
sym = [9,0,1,2,3,4,5,6,7,8]
s_new = ""
for k in 0..s.size - 1
s_new += sym[s[k].to_i].to_s
end
return s_new.to_i
end
for i in 100..9999
r = Avtomat(i)
p [i,r] if [159, 261, 1916, 1120, 820, 105, 5100, 9410].include?(r)
end
Вывод
[116, 105]
[160, 159]
[616, 105]
[660, 159]
[1930, 820]
[1931, 820]
[1932, 820]
[1933, 820]
[1934, 820]
[1935, 820]
[1936, 820]
[1937, 820]
[1938, 820]
[1939, 820]
[2230, 1120]
[2231, 1120]
[2232, 1120]
[2233, 1120]
[2234, 1120]
[2235, 1120]
[2236, 1120]
[2237, 1120]
[2238, 1120]
[2239, 1120]
[6210, 5100]
[6211, 5100]
[6212, 5100]
[6213, 5100]
[6214, 5100]
[6215, 5100]
[6216, 5100]
[6217, 5100]
[6218, 5100]
[6219, 5100]
В перечисленное не попали числа <span>261 1916 9410
Но если брать что "</span>Автомат получает на вход трёхзначное десятичное число<span>", т.е 4 значные не подаются на вход то не войдут числа
</span><span>261 1916 1120 820 5100 9410 </span>
A)
Read(a,b,c)
b)
if (x mod 2 = 0)or(y mod 2 = 0) then c:=(x+y)/2
else c:= x mod y;
c)
S:=0;
For k:= 1 to 15 do
S:=S+k;
d)
While x<=100 do
x:=x*2;
e)
c:=a;
a:=b;
b:=c;
Информация-сведенье о чем-либо.
Информатика-это наука,изучающая методы представления,передачи и обработки информации с помощью компьютера.
<span>Компьютер- устройство, способное автоматически выполнять заданную последовательность операций.
Файл-это именованный набор данных.
Текстовый редактор- самостоятельная компьютерная программа, где можно создавать и изменять текстовые данные.
Графический редактор- специальная компьютерная программа, предназначенная для автоматизации процессов построения на экране дисплея графических изображений. </span>
