1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
1 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 2 = 0 then Writeln('Число чётное') else Writeln('Число не чётное'); readln; end.
2 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 3 = 0 then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); readln; end.
3 program z; var i: array[1..6] of byte; x:byte; begin for x:=1 to 6 do
begin Writeln('Введите ', x,' цифру из 6 '); Read(i[x]); end; if (i[1]+i[2]) = (i[4]+i[5]+i[6]) then Writeln('Билет счастливый') else Writeln('Билет не счастливый'); Readln; end.
5))) program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 6 = 0 then Writeln('Число делится на 6') else Writeln('Число не делится на 6'); readln; end. 6 program z; var a,b:integer; begin Writeln('Введите число A'); Readln(a); Writeln('Введите число B'); Readln(b); if b mod a = 0 then Writeln('Число А делится нацело на число В') else Writeln('Число А не делится нацело на число B'); Readln; end.
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.