1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
^- конъюнкция, знак умножения(×);(операция И)
\/-дизъюнкция, знак сложения(+);(операция ИЛИ)
&-Тоже конъюнкция
1) 5 => 8 => 16 => 19 => ответ 38
2)2 => 7 => 6 => 11=> 10 => 15 => 14 => ответ 42
3) 1=> 3 => 2 => 6=> 5 => 15 => ответ 14
4) 1=> 6 => 5 => 10 => 9 => 14 => 13 =>18 => ответ 17
Ответ:
program HappyTicket;
uses
SysUtils;
var
n1, n2, m1, m2, i, c: Integer;
s: string;
begin
Write ('Введите два номера билета: ');
ReadLn (n1, n2);
if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin
c := 0;
for i := n1 to n2 do begin
s := IntToStr (i);
m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);
m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);
if m1 = m2 then begin
Write (s, ' '); // для проверки выводятся все билеты. после убрать
Inc (c);
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
end else
WriteLn ('Номера не шестизначные');
ReadLn;
end.