Помогите срочно пожалуйста
5-9 класс
|
var a,ch,k,s,m:integer;
begin
a:=-1;
while (a<>0) do begin
s:=0;
read(a);
k:=a;
while (k<>0) do begin
s+=k mod 10;
k:=k div 10;
end;
if s>=m then begin
ch:=a;
m:=s;
end;
end;
writeln(ch);
end.
Идиот придурок дибил сурьр
Другие вопросы из категории
монитора занимает 1024*768 пикселей.
Сколько страниц экрана одновременно разместится в видеопамяти при палитре из
256 цветов?
помогите кто нибудь пожалуйста
программу,которая в строке"рэки,горы и балоты" удаляет слова"горы"
ПОМОГИТЕ ОЧЕНь ОЧЕНь ОЧЕНЬ СРОЧНО НОДО, ВОПРОС ЖИЗНИ И СМЕРТИ!!!!!!!!!!
вашему мнению, это нужно? Почему однозначно не указывают, какой именно диск является системным?
ОЧЕНЬ НУЖНО!
Читайте также
Переведите из одной единицы измерения в другую
Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]
Даны два целых числа. Вывести меньшее из них.
Входные данные:
Во входном потоке в первой строке через пробел заданы целые числа A и B (-30000 < A,B < 30000), A неравно B.
Выходные данные:
В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):
-30000 45
Пример выходного файла (output.txt):
-30000