решить задачу по информатике в паскале
Задача : Автобусный билет считают счастливым, если сумма трех первых цифр билета равна сумме трех последних цифр. Напишите программу, определяющую счастливый номер билета или нет. (Пояснение: вводится 6-значное число, через операторы div, mod находится сумма первых трех и последних трех цифр номера, сравниваются суммы и выводится ответ: счастливый номер или нет)
x1→(x2∧x3∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
0→(1∧0∨1∧1∨1∧0) = 0→1 = 1, а F=0. Не подходит
2.
x2→(x1∧x3∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧0∨1∧1∨1∧0) = 1→1 = 1, а F=0. Не подходит
3.
x3→(x1∧x2∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧1∨1∧1∨1∧0) = 1→1 = 1, а F=0. Не подходит
4.
x4→(x1∧x2∨x3∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧1∨0∧1∨1∧0) = 1→0 = 0 - верно
x1 x2 x3 x4 x5 x6 x7 F
1 0 1 1 0 0 1 0
1→(1∧0∨1∧0∨0∧1)=1→0 = 0 - верно
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 0 1 0
1→(0∧1∨0∧1∨0∧1)=1→0 = 0 - верно
ответ: Выражение x4→(x1∧x2∨x3∧x5∨x6∧x7) соответствует F.
я выбирал задания у которых больше всего .
надеюсь тебе это решение
1
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
Var
a: Real;
i,n: Integer;
Begin
Writeln
a:=0
for i:=1 to n do
a:= a + sgr(i);
end
Writeln
Readln
end.
6
Var
N1, N2, M, i: Longint
Begin
Write( Wwedite N1= `)
ReadLn (N2)
if (N1=0) and (N2=0) then writeLn;
if N1>N2 then M:= N1 else M:= N2;
i:=M -1;
Repeat
Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
WriteLn ;
end.
12.
program N99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ Term;
Term: = Term×2
end
writeln(s)
readln
end.