помогите1177
25.04.2022 21:14

с этими заданиями 1)Автомат получает на вход три двухзначных числа. По этим числам строится новое число по следующим правилам: а) Вычисляются два числа — сумма старших разрядов заданных двухзначных чисел и сумма младших разрядов. б) Полученные числа записываются друг за другом в порядке возрастания (без разделителей). Выполните этот алгоритм для чисел: а) 31, 29, 87; б) 13, 82, 56; в) 56, 72, 91; г) 23, 98, 79.
2)Запишите алгоритм в пошаговой форме и в виде блок-схемы: “Дано натуральное число a > 2. Присвоить b значение 2 и проверить, делится ли a на b. Если делится, то сделать вывод, что число a — составное. Иначе проверить делимость a на b, где b последовательно принимает все целые значения от 3 до a – 1, каждый раз увеличиваясь на 1. Если a не делится ни на одно из этих чисел, сделать вывод, что число a — простое”.
3) Дан алгоритм, записанный в пошаговой форме:

Ввод: натуральное число a.

Шаг 1. Присвоить b значение 1.

Шаг 2. Присвоить b значение a ∙ b.

Шаг 3. Присвоить a значение a –1.

Шаг 4. Если a > 0, то перейти к Шагу 2.

Шаг 5. Стоп.

Результат: значение b.

Что вычисляет этот алгоритм? Нарисуйте его блок-схему. Что получится, если выполнить его для числа 4? Числа 5?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Littlebybigheart1111
10.01.2020 13:52
Традиционное решение:
var
  n,d1,d2,d3,d4:integer;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(n);
  d1:=n div 1000; d4:=n mod 10;
  d3:=(n mod 100) div 10;
  d2:=(n mod 1000) div 100;
  n:=1000*d1+100*d3+10*d2+d4;
  Writeln('Результат: ',n)
end.

Тестовое решение:
Введите четырехзначное натуральное число: 4567
Результат: 4657

Решение с использованием символьного представления числа:
var
  s:string;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(s);
  Writeln('Результат: ',s[1]+s[3]+s[2]+s[4])
end.
0,0(0 оценок)
Ответ:
myafyanya
26.08.2020 10:28
Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота