Ответ: 2
Ответ: 4
Ответ: 2
Ответ: 4
Если нужно подробнее могу расписать, надеюсь на правильность, т. к сдавала летом))
1. 123
2. 1453
3. 420
можно не благодарить
Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
Ответ:
program Test;
var
a: array of Integer;
n, i, c, left, right: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n);
Write ('Введите элементы массива:');
for i := Low (a) to High (a) do
Read (a [i]);
c := 0;
for i := Low (a) to High (a) do begin
if i > Low (a) then
left := i - 1
else
left := High (a);
if i < High (a) then
right := i + 1
else
right := Low (a);
if a [left] = a [right] then begin
Inc (c);
Write (i + 1, ' '); //для проверки
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
ReadLn; ReadLn;
end.
Ввода (клавиатура)
вывода (принтер. монитор)
хранения (databank)