Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
Ютуб, так как зарегемтрированы пользователи со всего мира, и он довольно старый
Значит так,в 5 номере мы имеем две команды: 1 - возведи в квадрат и 2 - прибавь 1. По условию из числа 1 мы должны сделать число 10 используя не более четырёх команд. Поехали.
2 (добавляется +1 к числу 1)
1 (возводит в квадрат наше число,значение которого уже равно двум)
2 (добавляет +1 к нашему числу,имеющее значение 8)
2 (добавляет +1 нашему числу,имеющее значение 9)
Вот так вот у нас получилось число 10.
Так же есть второй способ,не буду его расписывать,укажу в ответе.
Ответ : 1) 2 1 2 2 либо 2) 2 2 1 2
В 6 задании идентичная задача.Цель: из 4 получить 58.Перейдём сразу к решению.
1 (добавляется +3 к числу 4)
2 (возводится в квадрат число 7)
1 (добавляется +3 к 49)
1 (добавляется +3 к 52)
1 (добавляется +3 к 55)
Ответ: 1 2 1 1 1
1)
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
Ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
