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

Дано четырехзначное число. Найти: сумму его цифр.

Написать программу на Pascal'е 

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

    var n,s:integer;
    x1,x2,x3,x4:integer;
    begin
    write('Vvedite N = ');
    read(n);
    x1:=n div 1000;
    x2:=n mod 1000 div 100;
    x3:=n mod 100 div 10;
    x4:=n mod 10 div 1;
    s:=x1+x2+x3+x4;
    writeln(s);
    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ч

Информация

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