Вертный ответ 1)совокупность простых элементов, прямоугольников, прямых линий, закрасок
//Pascal
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.
<h2>Задание 1</h2>
(смотри первую прикреплённую фотографию)
<h2>Задание 2</h2>
(смотри вторую прикреплённую фотографию)
Если код второго задания для Вас "сложен", то, извините, Вам придётся для работы каждого типа с каждым писать отдельные перегрузки:
float и int, double и int, float и double, size_t и int. В общем - таких типов очень много и полноценный калькулятор у Вас выйдет на 100+ строк.
Шаблоны изучаются вначале, так как позволяют избежать вот таких ситуаций.
Виділити аб, вирізати і вставити в кінець ряду, натиснути делейт.
вийде рикоса,потім поставити курсор після к і двічі натиснути делейт
Var a,b:integer; l:boolean;
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True
