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

Паскаль.

Среди 4-значных чисел. Определить сколько "счастливых", т.е. сумма 1 и 2 числа = сумме 3 и 4 и вывести их на экран. 

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

    var
    a,b,i,k:integer;
    begin
    k:=0;
    for i:= 1000 to 9999 do
    begin
      a:= i div 100;
      b:= i mod 100;
      if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1;
    end;
    writeln('Счастливых чисел: ',k);
    end.

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

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

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

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

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

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

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

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

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

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

Информация

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