Нужно написать программу в паскаль, которая будет проверять, "счастливый " билет или нет (номер билета состоит из 6 цифр). примечание: счастливым билетом называется число, в котором: а) при четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры. например, рассмотрим число 1322. его левая половина равна 13, а правая – 22, и оно является счастливым билетом (т. к. 1 + 3 = 2 + 2).
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,99);
var b:=ArrRandom(7,1,99);
var c:=ArrRandom(7,1,2);
var k:=0;
var r,x:integer;
for var i:=0 to 6 do begin
Write(a[i]);
if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end
else begin Write(' - '); r:=a[i]-b[i] end;
Write(b[i],' = '); Read(x);
if x=r then k+=1
end; // for
Writeln('Верных ответов: ',k)
end.
Пример
77 - 21 = 56
53 - 97 = -44
91 + 51 = 142
42 - 65 = -23
70 + 78 = 148
91 - 5 = 86
45 + 41 = 86
Верных ответов: 7