Определить, является ли билет с 4х значным числом счастливым. в паскале) пожалуйста))
5-9 класс
|
program bilet;
uses crt;
var a,b,c,d,s,n,k:real;
begin
write('vvedite chislo');
readln(k);
a:=k div 1000;
b:=k div 100 mod 10;
c:=k div 10 mod 100
d:=k mod 10;
s:=a+b;
n:=c+d;
if s=n then writeln('bilet schastlivy') else writeln('bilet ne schastlivy');
readln;
end.
Другие вопросы из категории
ней,чтобы в вк я смогла зайти только через месяц и весь этот месяц я бы не смогла зайти в вк??? если есть то напишите пожалуйста название и где ее скачать... а контакт как-нибудь заблокировать можно???ну тоже чтобы на время
Читайте также
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
Определить оканчивается ли оно цифрой 7.
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100