Объяснение:
#include <iostream>
using namespace std;
int main()
{
//1 - 2 задания
setlocale(LC_ALL, "Russian");
system("color A");
int A,a;
cout << "Введите число: ";
cin >> a;
while (a--)
cout << a << ' ';
cout << endl;
//2
cout << "Введите число: ";
cin >> A;
A -= !(A & 1) + 2;
while ((A += 2) < 1000)
{
cout << A << ' ';
}
}
//
//3 задание
#include <iostream>
using namespace std;
int main()
{
for (int i = 1; i < 10; i += 2)
cout << i * i << ' ';
}
Pascal
var a,b: array of integer;
i,k,s1,s2: integer;
begin
s1:=0;
s2:=1;
write('Введите количество элементов массива');
readln(k);
setlength(a,k);
setlength(b,k);
for i:=0 to k-1 do
begin
write('Ввод данных для a[',i,']=');
readln(a[i]);
if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];
end;
writeln('Данные массива A:');
for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to k-1 do
begin
if a[i]>0 then b[i]:=s2 else b[i]:=s1;
writeln('b[',i,'] = ',b[i]);
end;
end.
ответ в и г