Задание 1.
Автомат получает на вход два трехзначных числа. По этим числам строится новое число по следующим правилам. Вычисляются три числа - сумма старших разрядов заданных трехзначных чисел, сумма средних разрядов этих чисел, сумма младших разрядов.
Полученные три числа записываются друг за другом в порядке убывания без разделителей ( исходные числа 835, 196 12119).
Определить, какое из следующих чисел может быть результатом работы автомата.
161205 15121 19175 111612

Задание 2.
Автомат получает на вход трехзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. Вычисляются два числа - сумма старшего и среднего разрядов, а также сумма среднего и младшего разрядов заданного числа.
Полученные два числа записываются друг за другом в порядке неубывания без разделителей.
Определите, сколько из приведенных ниже чисел могут получаться в результате работы автомата.
1616 169 163 1916 1619 316 116
В ответе запишите количество чисел и обоснование результата.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Pro100iraa

06.04.2022 05:47

Желательно с пояснение и со всеми переводами (хелп)...

FluffyFoxLove

09.07.2021 02:59

3. Амир робот арналған заттардың түсін аны: галтын бағдарлама жазды. Бағдарламада қолданылған фильтры...

alexc123

09.12.2022 01:53

Графикалық примитив деген не...

Grandmaster69

04.08.2022 21:42

Выберите из списка пропущенные слова в определении графика основана на использовании таких объектов, как линии,круги,мноугольники.Эти объекты называютсяА)Векторная,графическими...

Kinder281

21.11.2022 16:05

Решить задачи 1)В коробке 24 мяча разного цвета. сколько инф. несет сообщение, что достали красный мяч? 2)Можно ли уместить на одну дискету книгу, имеющую 600 стр., причем...

Dasha20101111

08.05.2023 03:06

В текстовый файл построчно записаны фамилия и имя учащихся класса и его оценка за контрольную. Вывести на экран всех учащихся, чья оценка меньше и посчитать средний по...

Aqvtttt

17.02.2022 18:53

3. Вычислите значение логического выражения:а) (1^0)^(0^A)^(1^0)=б) (A^Ā)v1=в) 1v1^0V0=...

merit6052

03.04.2023 01:15

1. Дан фрагмент электронной таблицы....

Игнат20082412

15.05.2020 17:06

Kfy jr ghjkl; ;lhgfdssdfbnm,./.,mnbvcxzxfghjkl kjhgfcxzzfghjkkjhgxcvbnm,; ;poi...

rasimfanov

21.09.2021 15:24

Переведи число 0,6562510→Y8. Переведи число: −2,235→X10....

Ответ:

Angela960

17.05.2023 10:11

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.

0,0(0 оценок)

Ответ:

zhenyazhitenko

17.05.2023 10:11

S:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.
2
a:array[1..1000] of integer;
begin
k:=1;
for i:=100 to 999
if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end;
for i:=1 to k do
writeln(a[i]);
readln;
end.

3
s, a:string;
i, k:integer;
begin
readln(s);
readln(a);
for i:=1 to length(s) do
if s[i]=a then s[i]:='';
writeln(s);
readln;
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку