var x: array[1..n] of integer; i: integer; flag: boolean;
begin Randomize; Write('Элементы массива: '); for i := 1 to n do begin x[i] := Random(10000); Write(x[i]:5) end; i := 1; flag := false; while (i <= n) and (not flag) do begin flag := (x[i] >= 99) and (x[i] <= 1000); if (not flag) then i := i + 1 end; Writeln; if flag then Writeln('Найден элемент: ', x[i]) else Writeln('Искомого числа нет') end.
var x: array[1..n] of integer; i: integer; flag: boolean;
begin Randomize; Write('Элементы массива: '); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4) end; i := n; flag := false; while (i > 0) and (not flag) do begin flag := (x[i] >= -10) and (x[i] <= 20) and (x[i] mod 3 = 0); if (not flag) then i := i - 1 end; Writeln; if flag then Writeln('Найден элемент: ', x[i]) else Writeln('Искомого числа нет') end.
begin Write('Введите натуральное число-> '); Readln(n); Str(n, s); Val(s[1], k, er); if (k mod 2 = 0) then Writeln('Первая цифра числа четная') else Writeln('Первая цифра числа нечетная') end.
Тестовое решение: Введите натуральное число-> 36434523 Первая цифра числа нечетная
function NOD(a, b: integer): integer; begin while a <> b do if a > b then a := a - b else b := b - a; NOD := a end;
var a, b, c: integer;
begin Write('Введите через пробел три целых числа: '); Readln(a, b, c); Writeln('НОД(a,b)+НОД(b,c)=', NOD(a, b) + NOD(b, c)) end.
Тестовое решение: Введите через пробел три целых числа: 2048 512 4262 НОД(a,b)+НОД(b,c)=514
begin Write('Введите текст: '); Readln(s); Write('Введите исключаемые символы ПОДРЯД: '); Readln(s_rej); s2 := ''; for i := 1 to Length(s) do if Pos(s[i], s_Rej) = 0 then s2 := s2 + s[i]; Writeln('Обработанный текст: ', s2) end.
Тестовое решение: Введите текст: Пример текста, из которого будут исключены гласные буквы Введите исключаемые символы ПОДРЯД: аеёиоуэюя Обработанный текст: Прмр ткст, з ктрг бдт склчны глсны бквы
var s, s2: string; i: integer; c:array of string;
begin Write('Введите текст: '); Readln(s); s:=Trim(s); c:=s.Split('-'); s2:=Trim(c[0]); for i:=1 to Length(c)-1 do s2:=s2+' - '+Trim(c[i]); Writeln('Обработанный текст: ', s2) end.
Тестовое решение: Введите текст: тестовая -строка - в ней много-много тире в разных- преразных вариантах - и в таком даже Обработанный текст: тестовая - строка - в ней много - много тире в разных - преразных вариантах - и в таком даже
n = 10;
var
x: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(10000);
Write(x[i]:5)
end;
i := 1; flag := false;
while (i <= n) and (not flag) do
begin
flag := (x[i] >= 99) and (x[i] <= 1000);
if (not flag) then i := i + 1
end;
Writeln;
if flag then Writeln('Найден элемент: ', x[i])
else Writeln('Искомого числа нет')
end.
Тестовое решение:
Элементы массива: 4136 4921 244 1489 1714 5731 4187 7990 1974 113
Найден элемент: 244
const
n = 13;
var
x: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4)
end;
i := n;
flag := false;
while (i > 0) and (not flag) do
begin
flag := (x[i] >= -10) and (x[i] <= 20) and (x[i] mod 3 = 0);
if (not flag) then i := i - 1
end;
Writeln;
if flag then Writeln('Найден элемент: ', x[i])
else Writeln('Искомого числа нет')
end.
Тестовое решение:
Элементы массива: 21 -45 -12 9 -36 42 -49 -48 37 48 -43 26 -34
Найден элемент: 9
var
n: longint;
s: string;
k, er: integer;
begin
Write('Введите натуральное число-> '); Readln(n);
Str(n, s);
Val(s[1], k, er);
if (k mod 2 = 0) then Writeln('Первая цифра числа четная')
else Writeln('Первая цифра числа нечетная')
end.
Тестовое решение:
Введите натуральное число-> 36434523
Первая цифра числа нечетная
function NOD(a, b: integer): integer;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
a, b, c: integer;
begin
Write('Введите через пробел три целых числа: '); Readln(a, b, c);
Writeln('НОД(a,b)+НОД(b,c)=', NOD(a, b) + NOD(b, c))
end.
Тестовое решение:
Введите через пробел три целых числа: 2048 512 4262
НОД(a,b)+НОД(b,c)=514
s, s_rej, s2: string;
i: integer;
begin
Write('Введите текст: '); Readln(s);
Write('Введите исключаемые символы ПОДРЯД: '); Readln(s_rej);
s2 := '';
for i := 1 to Length(s) do
if Pos(s[i], s_Rej) = 0 then s2 := s2 + s[i];
Writeln('Обработанный текст: ', s2)
end.
Тестовое решение:
Введите текст: Пример текста, из которого будут исключены гласные буквы
Введите исключаемые символы ПОДРЯД: аеёиоуэюя
Обработанный текст: Прмр ткст, з ктрг бдт склчны глсны бквы
var
s, s2: string;
i: integer;
c:array of string;
begin
Write('Введите текст: '); Readln(s);
s:=Trim(s);
c:=s.Split('-');
s2:=Trim(c[0]);
for i:=1 to Length(c)-1 do
s2:=s2+' - '+Trim(c[i]);
Writeln('Обработанный текст: ', s2)
end.
Тестовое решение:
Введите текст: тестовая -строка - в ней много-много тире в разных- преразных вариантах - и в таком даже
Обработанный текст: тестовая - строка - в ней много - много тире в разных - преразных вариантах - и в таком даже