profile
Опубликовано 4 года назад по предмету Информатика от natashasharova

Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal) 

  1. Ответ
    Ответ дан Gluk1

    uses crt;

    var i,s,a,b,c,ch,o:integer;


    begin
    o:=0;
    writeln(' Vvedite chislo ' );
    readln(ch);
    for i:=100 to 999 do
    begin
    a:=i div 100;
    b:=(i div 10) mod 10;
    c:=i mod 10;
    if ((a+b+c) = ch) then
    begin
    inc(o);
    writeln(i);
    end;
    end;
    if o = 0 then writeln('error !');
    readln;
    end.

Другие вопросы
Lenusik
Математика - 1 неделя назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 3 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 3 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 3 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 3 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.