Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное - id2127436520210501 от tanya18veselova 01.05.2021 06:49

Question

Информатика: Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам: 1) вычисляются два числа — сумма «крайних» цифр четырёхзначного числа, а также сумма «средних» цифр заданного числа; 2) полученные два числа записываются друг за другом в порядке возрастания (без разделителей). Пример. Исходное число: 1573. Сумма «крайних» цифр 4, сумма «средних» цифр 12. Результат: 412. Определите, сколько из приведённых ниже чисел могут получиться

tanya18veselova · Accepted Answer

Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;

for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.

Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда

MOGZ ответил