Шестизначный билет для проезда в любом транспортном средстве называется «счастливым по-ленинградски» , если сумма первых трёх его цифр равна сумме трёх последних его цифр. определить, является ли билет с введённым с клавиатуры номером «счастливым по-ленинградски» . исходные данные: в первой строке вводится номер билета (6 цифр) . результат работы программы: во второй строке вывести на экран текст «билет счастливый» , либо «билет не является счастливым». написать программу, я ее примерно написала, но не работает.
300
500
Ответы на вопрос:
Вариант 3: function sum(a : integer) : byte; begin sum: =a div 100 + a div 10 mod 10 + a mod 10; end; var n : integer; begin repeat readln(n); until (n> 99999) and (n< =999999); if sum(n div 1000)=sum(n mod 1000) then writeln('билет счастливый') else writeln('билет не счастливый') end.
Вариант 1 var s: string; begin read(s); if ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6]) then writeln('билет счастливый') else writeln('билет не является счастливым'); end.вариант 2var n: integer; begin read(n); if n div 100000 + n div 10000 mod 10 + n div 1000 mod 10 = n div 100 mod 10 + n div 10 mod 10 + n mod 10 then writeln('билет счастливый') else writeln('билет не является счастливым'); end.
Var n,m,p,k:longint;
Begin
read(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
writeln('k=',k);
end.
Популярно: Информатика
-
andriu1225217.09.2020 01:41
-
Kanat2K415.01.2021 20:15
-
mixon204.04.2021 18:17
-
катя735402.01.2021 17:13
-
Зайчонок51210.11.2022 04:30
-
Djamkaa032523.05.2021 01:09
-
жепа56418.08.2020 13:28
-
tatksyushap06w3y30.07.2021 05:09
-
алекс92224.01.2020 14:36
-
Marymol200513.04.2022 05:05