1. Информатика
  2. Составьте программу на языке паскаль:

Составьте программу на языке паскаль: найти сумму цифр трёхзначного числа.

FOXI66666 FOXI66666    1   08.06.2019 00:00    1

Ответы
vtnastya05 vtnastya05  07.07.2020 12:52
Var a,a1,a2,a3,s;
begin
s:=0;
readln (n);
a1:=a div 100;
a2:= a div 10 mod 10;
a3:=a mod 10;
s:=a1+a2+a3;
write (s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikky228like nikky228like  25.06.2019 19:40
Решите ! вычислить объём текстового файла содержащего 1000 символов в 16-битной кодировке. ответ в мбайтах....
18фо 18фо  25.06.2019 19:40
Перевести числа из двоичной в восьмеричную, шестнадцатиричную 101011001 и 1011001...
zlutashigaeva zlutashigaeva  25.06.2019 19:40
Набрать в программе pascal программу исправив ошибки : program 123; uses crt ; var a,s: intedger; begin writeln ( введите два числа ); read(q,w); f: =q/w; writeln ( результат , f);...
MMalaya MMalaya  25.06.2019 19:40
Набрать в программе pascal программу исправив ошибки : program 123; uses crt ; var a,s: intedger; begin writeln ( введите два числа ); и можно здесь по конкретнее какие именно два...
Аленушка54545454 Аленушка54545454  25.06.2019 19:40
Вчём основное отличие гипертекстовых документов от обычных...
даша084 даша084  25.06.2019 19:50
Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)...
5polinka 5polinka  25.06.2019 18:25
Подскажите это нормально у других комп при включении долго включается,например там загрузка виндовс ,а у меня я жму на кнопку включения и сразу же черный экран 5секундная там загрузочка...
Neznaika123shsgwheh Neznaika123shsgwheh  25.06.2019 19:50
1килобайт - это 1. 1024 мегабайт. да нет 2. 1000 байт. да нет 3. 1024 байт. да нет 4. 8192 бит. да нет 5. 1024 бит. да нет 6. 1000 бит. да нет...
sfdfgdfgdfg sfdfgdfgdfg  25.06.2019 19:50
Задана квадратная матрица. все отрицательные элементы данной матртцы замените на нули и подсчитайте их колличество на c#...
SashaSvey SashaSvey  25.06.2019 20:00
Решить .. 1. у тани было n (n 0) палочек.она разломала одну из них на 4 куска. сколько теперь у неё палочек? 2. в n году ежегодная олимпиада по информатике среди учеников 1-8 классов...

Популярные вопросы