Номер 5 помогите решить, пожалуйста.
5-9 класс
|
program z;
var rt,n,i,lt,g:integer;
begin
writeln('Введите номерок билета');
read(n); rt:=0; lt:=0;
for i:=1 to 3 do
begin
rt:=rt + (n mod 10);
n:= n div 10;
end;
for g:=1 to 3 do
begin
lt:=lt + (n mod 10);
n:=n div 10;
end;
if lt=rt then writeln('Билет счасливый')
else writeln('Билет не счасливый');
end.
Другие вопросы из категории
опускала ее в лукошко. Так Маша делала до тех пор, пока на кусте не осталось ни одной ягоды. Из этих ягод сварили очень вкусное варенье. Как это записать в виде блок-схемы?
Элементы целочисленного массива - числа из [-30;70].
Есть ли среди чисел массива числа кратыне 7-и? Если да то сколько их?
Сколько элементов массива находятся на позициях,кратных 7-и. Напечатайте на экране и количество таких элементов и сами эти элементы.
Читайте также
1.Замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.
Помогите решить, пожалуйста!
цветов. Известно, что только у Ани цвета платья и туфель совпадают. Ни туфли,
ни платье Вали не белые. Наташа в зеленых туфлях. Определите цвет платья и
туфель каждой из подруг.
Помогите решить пожалуйста(спасибо)
сумме этих массивов ; минимальную из соответствующих элементов этих массивов.