Определить, счастливый ли билетик.
5-9 класс
|
С помощью 2 массивов. Принцип такой: на билете 6 цифр. Если сумма первых трех будет равна сумме следующих трех, то билет-счастливый.
var
s: string;
i, a, b, c, f: integer;
begin
writeln('Номер билета?');
readln(s);
for i := 1 to 3 do
begin
val(s[i], a, f);
b := b + a;
end;
for i := 4 to 6 do
begin
val(s[i], a, f);
c := c + a;
end;
if c = b then writeln('Билет счастливый!')
;
else writeln('Билет НЕ счастливый!');
readln ;
end.
и в чём тут вопрос
Другие вопросы из категории
строку с интервалом 4 пункта.
Ребят, помогите, пожалуйста, вообще не понимаю как делать)
наугад ввела кол-во баллов, не знаю , что они значат
подмножества. Назовите для него хотя бы одно дополнительное свойство: Книга,бензин,врач,молоко,строитель,учебник,жидкость,справочник,человек
Читайте также
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
Определить оканчивается ли оно цифрой 7.
p>которая находит остаток от деления).
Задача 2.
Определить, попадает ли введенное число x в интервал [a, b], где числа a и b тоже задаются
пользователем.
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!