Напишите программу, которая егору решить его работу: будет складывать два числа с клавиатуры и находить - id1004254320220809 от Ariana20199 09.08.2022 23:13

Question

Информатика: Напишите программу, которая егору решить его работу: будет складывать два числа с клавиатуры и находить их сумму. формат входных данных с клавиатуры вводятся два целых числа a и b, не превосходящих по модулю 30 000. формат результата программа должна вывести на экран результат сложения — сумму чисел a и b.

Ariana20199 · Accepted Answer

Program qq;
var a, count2, count3: integer;
begin
writeln('Введите число');
readln(a);
count2:=0;
count3:=0;
while a>0 do
begin
    if a mod 10 = 2 then
      count2:=count2+1;
    if a mod 10 = 3 then
      count3:=count3+1;
    a:=a div 10;
end;
if count2>count3 then
    a:=count3
else
    if count3>count2 then
      a:=count2
    else
      a:=count2;
if a<>0 then
    while a>0 do
    begin
      writeln('Выведено число 23');
      a:=a-1;
    end
else
    writeln('Нельзя получить число 23 из цифр введённого числа');
end.

MOGZ ответил