Новые вопросы

Информатика Архивный вопрос

Написать в тетради программу, в которой пользователь вводит целое 3-хзначное число, необходимо найти сумму его цифр

Нет комментариев

Ответы

Гость

Var s: integer;
begin
readln(s);
s:= (s div 100)+((s div 10) mod 10)+(s mod 10);
writeln (s);
end.

Нет комментариев

Похожие вопросы

Информатика

Ниже записана программа. Получив на вход число , эта программа
печатает два числа, a и b. Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while x > 0 do begin
a:= a + 1;
b:= b + (x mod 100);
x:= x div 100;
end;
w...

Ответить

Информатика

Один символ алфавита племени МУЛЬТИ несет 8 бит информации.верно ли утверждение что сообщение из 8 символов этого алфавита несет 8 байт информации
...

Ответить

Информатика

Составить программу есть ли среди чисел x y z числа кратные 5. если такие числа имеются то увеличить их на 1...

Ответить

Информатика

Дан числовой ряд от 1 до 16
Какое количество информации несет одно число из этого ряда
помогите плиз срочно...

Ответить

Информатика

Цепочка из четырех бусин , помеченных латинскими буквами формируется по следующему правилу : - на втором месте цепочки стоит одна из бусин Е , D , C . -а в конце - одна из бусин D , B, C , которой нет на втором месте . - в начале - одна из бусин E, B, A , которой нет на четвертом месте . - на третьем месте - одна из бусин С, В, А, не стоящая на пер...

Ответить

Информатика

Какое число будет напечатано на экране компьютера в результате выполнения фрагмента программы?
Бейсик
D=1
FOR K=3 TO 5
D=D*3
NEXT K
PRINT D
Паскаль
D:=1;
FOR K:=3 TO 5 DO
D:=D*3;
WRITELN(D);...

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология