Помогите решить ребус на паскале, пожалуйста: A+AB+ABC=BCB
10-11 класс
|
uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
end.
Другие вопросы из категории
составьте алгоритм для определения количества цифр в записи произвольного натурального числа
состоит изображение? Какой объем будет у изображения размером 128×64 пикселя?
На втором установила The Bat 5.2 Final. Искала в интернете, как вернуть свой ящик в The Bat. Было сказано, создать новый под тем же именем, паролем, пользователем. Теперь у меня на двух компьютарах мой ящик. Но когда на любом из них пытаюсь получить новую почту, пишут что пароль неверный. Что делать?
Читайте также
уникальных чисел в массиве....заранее спасибо...
Дана строка.Перенести последнюю букву слова в начало слова
Дано:массивы А1(N1,M1),A2(N2,M2),A3(N3,M3). Вычислить Х=Х1+Х2+Х3 и Y1+Y2+Y3, где Х1,Х2,Х3-количество нулей в каждом из массивов А1,А2,А3 соответственно, а Y1,Y2,Y3-количество элементов в каждом из этих массивов,лежащих в интервале [1,12]. Определение количества нулей в массиве и количества элементов, лежащих в этом интервале, оформить в виде подпрограммы.
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.