Вопрос школьника по предмету Информатика
Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10.
Ответ учителя по предмету Информатика
Var
A,S,k:longint;
Begin
k:=0;
Read(A);
While A<>0 do
Begin
S:=0;
A:=Abs(A);
While A > 0 do
Begin
S:=S+A mod 10;
A:=A div 10;
End;
if S=10 then k:=k+1;
Read(A);
End;
WriteLn(‘Искомое количество: ‘,k);
End.
Похожие вопросы от пользователей
Допустим водросли карп щука(только что нибудь другое)
четырёх, удвоить
тройка, пятнадцатый
шестому, пятиэтажный
двести один, двадцать
А2. В каком числительном на месте пропуска не пишется Ь?
сем…надцать
сем…десят
сед…мой
сем…сот
А3. Какое числительное написано с ошибкой?
триста
четыреста
двеннадцать
двести
А4. Укажите пример с ошибкой в образовании формы слова.
четырёхсот двадцати делегатов
(о) сорока килограммах
семистам восьми номерам
шестистами рублями
А5. Укажите пример с грамматической ошибкой.
к двум десятым
на обоих сторонах
двое суток
полутора месяцев
А6. Укажите пример, в котором нет грамматической ошибки.
в полутораста километрах
трое подруг
нет четыреста пяти
триста тоннами
Прочитайте текст и выполните остальные задания.
(1)Вес искусственного спутника Земли – пятьсот восемь килограммов. (2)За две тысячи оборотов спутник прошёл около девяноста миллионов километров. (3)Это составляет три пятых расстояния от Земли до Солнца.
В1. Напишите, каким членом предложения (1) является числительное.
________________________________________________________________________________
В2.Выпишите из текста дробное числительное_________________________________________
В3.Из предложения (2)выпишите все числительные__________________________________________
сочинение на тему
«фотография на которой меня нет «
Вопросы
Кто герой рассказа?
Характер героев рассказа?