1. Информатика
  2. Cклавиатуры вводится трехзначное

Cклавиатуры вводится трехзначное число. нужно написать программу , вычисляющую сумму цифр числа : выполнить транссировку программы для числа 152 .

katmoxie katmoxie    1   27.07.2019 08:50    0

Ответы
avf55 avf55  25.09.2020 10:16
Begin
var a:integer;var i:integer;var q:integer;
readln(a);
for i:=1 to 3 do
begin
  q:= q + copy(a,i,1);
end;
writeln(q);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
krsssn krsssn  19.08.2019 07:10
1. переведите двоичное число 10011101001011 в 8-ную систему счисления и выберите правильный вариант ответа. a) 23784 b) 23513 c) 6734 d) 2352 e) 111...
Anna19013 Anna19013  26.05.2019 16:00
У=ах^2+а^2х+5^х на отрезке а=[-3; 6] с шагом h=0,3, где х=-1,07...
yubloh yubloh  26.05.2019 14:38
Python. дана непустая последовательность целых чисел, оканчивающаяся числом 100. необходимо определить, есть ли в последовательности число 77....
jennie082017 jennie082017  26.05.2019 16:00
1) дано число а. определить, положительное, отрицательное оно или равно 0. 2) определить, принадлежит ли меньшее из чисел m и n промежутку [-20; 10)....
ilia39loh ilia39loh  26.05.2019 14:40
Python. некоторое число n удваивается каждую секунду, выведите весь процесс удвоения в течении t секунд, с учетом первоначального значения....
aleksandr250804 aleksandr250804  18.06.2019 21:10
Срешением : запишите число которое будет напечатано в результате выполнения программы var n, s: integer; begin n: =0; s: =0; while s =325 do begin s: =s+10; n: =n+3...
Nikita45Nikita45 Nikita45Nikita45  18.06.2019 21:10
Какие три основных цвета содержится в палитре для создания новых? a.жёлтый,серый ,пурпурный b.голубой, красный ,чёрный c,белый,оранжевый ,лиловый d,зелёный,красный,синий...
54526 54526  18.06.2019 21:10
)1)оценки в соревнованиях по фигурному катанию выставляются 9 судьями.потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифметическое...
Nazar07072004 Nazar07072004  01.10.2019 00:30
Какой объём информации содержат 3 символа 16-символьного алфавита ?...
Алёна280104 Алёна280104  01.10.2019 00:30
65 . pascal abc. дан массив размером n×n, элементы которого целые числа. вывести на экран элементы, расположенные под главной и под побочной диагональю. при решении...

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