#include "iostream"
using namespace std;
int main()
{
float firstArray[3]={1, 5, 6}, secondArray[4];
cout<<"First Array: ";
for(int i=0; i<3; i++)
{
secondArray[i]=firstArray[i];
cout<<firstArray[i]<<"\t";
}
cout<<endl<<"Second Array: ";
secondArray[3]=7;
for(int i=0; i<4; i++)
cout<<secondArray[i]<<"\t";
cout<<endl;
return 0;
}
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>
Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
<span>end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.</span>