Регистрация
егорбаглаев11
29.06.2021 08:51
Информатика
Есть ответ 👍

Написать программу в паскале с решением ребус a+ab+abc=bcb

206
314
Посмотреть ответы 2

Ответы на вопрос:

mir32
mir32
4,7(81 оценок)
Число авс может принимать значение от 123 до 987 исходя из этого пишем программу var     ast,bst,cst,s: string;     i,a,ab,abc,bcb: integer;     f: boolean;                                       {признак того, что решение найдено} begin for i: =123 to 987 do begin if f=false then   begin   s: =inttostr(i);   ast: =s[1];   bst: =s[2];   cst: =s[3];   a: =strtoint(ast);   ab: =strtoint(ast+bst);   abc: =strtoint(ast+bst+cst);       bcb: =strtoint(bst+cst+bst);   if a+ab+abc=bcb then f: =true;   if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then f: =false; {цифры  не должны повторяться}   end end; if f=true then writeln(a,'+',ab,'+',abc,'=',bcb) else writeln('решения нет') end.
Aaaaaarrrrr55
Aaaaaarrrrr55
4,4(28 оценок)

var a,  k: integer; begin  t: =0;   readln(a);   while a< > 0 do begin        if (a mod  2  = 0) and (a mod  6  =  0) then                k  : =  k  +  1;         readln(a);

          end;   writeln(k)end.

Популярно: Информатика