CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{ string str;
getline(cin, str);
for (int i = 1; i < str.length(); i++)
{
if (i % 2 == 0)
{ if (str[i] != 'a')
{ str[i] = 'a'; }
if (str[i] != 'b')
{ str[i] = 'b'; }
if (str[i] != 'c')
{ str[i] = 'c'; }
}
}
cout << str << endl;
_getch();
return 0;}
Емкось жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
Емкость blue-ray дисков от 25 гб до 50 гб.
Подробнее - на Znanija.com - znanija.com/task/4394282#readmore
//PascalABC.Net 3.1.0.1200
var
a, b: integer;
begin
a := -3;
b := -a - a;
a := a + 2;
a := -b + a * b;
Println(a, b);
end.
Вывод -12 6
