Регистры процессора — это ячейки оперативной памяти программы, обеспечивающие связь процессора с оп ячейки процессорной памяти ячейки внешней памяти программы, обеспечивающие связь процессора с внешними устройствами
var a: array[1..n] of integer; kOdd, e, i: integer;
begin Randomize; kOdd := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(20) + 1; a[i] := e; if (e mod 2) <> 0 then kOdd := kOdd + 1; write(e:3) end; writeln; writeln('Количество нечетных элементов - ', kOdd) end.
Тестовое решение: Исходный массив 9 2 1 18 17 16 11 15 15 13 Количество нечетных элементов - 7
program ex2;
const n = 10;
var a: array[1..n] of integer; kNeg, e, i: integer;
begin Randomize; kNeg := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(21) - 10; a[i] := e; if e < 0 then kNeg := kNeg + 1; write(e:4) end; writeln; writeln('Количество отрицательных элементов - ', kNeg); end.
Тестовое решение: Исходный массив -9 -1 -7 -4 8 -4 1 -1 -7 0 Количество отрицательных элементов - 7
program ex3;
const n = 10;
var a: array[1..n] of integer; e, i: integer;
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(20); write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] mod 2 = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(11) + -5; write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(10) + 1; write(a[i]:3) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 3 then a[i] := 5; write(a[i]:3) end; writeln; end.
Сначала задача должна быть решена геометрически. Очевидно, что круг войдет в прямоугольник если его диаметр D будет меньше, чем меньшая из сторон этого прямоугольника min(a,b). Вот и все решение.
По этому решению составляем алгоритм: 1. Ввести a, b, D 2. Найти m - минимум (a,b) 3. Если D<m, то вывести сообщение "Войдет", иначе вывести сообщение "Не войдет". 4. Завершить работу.
Осталось написать программу.
1. Современное решение
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (a,b,d):=ReadReal3('Введите через пробел a,b,D:'); var m:=Min(a,b); if D<m then Writeln('Войдет') else Writeln('Не войдет') end.
Пример Введите через пробел a,b,D: 14.5 11 10.6 Войдет
2. "Школьный" вариант - так писали наши отцы и деды
var a,b,D,m:real;
begin Write('Введите через пробел a,b,D: '); Read(a,b,d); if a<b then m:=a else m:=b; if D<m then Writeln('Войдет') else Writeln('Не войдет') end.
