var
s : integer;
m : BigInteger;
begin
m := 1;
writeln('даны числа: 1..20');
for var i := 1 to 20 do begin
s := s+(i*i);
m := m*(i*i);
end;
writeln('сумма квадратов = ', s);
writeln('произведение квадратов = ', m);
end.
#include <iostream>
#include <string>
#include <time.h>
using namespace std;
void main()
{
<span> srand(time(NULL));
</span><span> int n,k=0,k1=4;</span><span>
cin >> n;</span><span> //вводишь количество символов
string *s=new string [n];</span><span>
for (int i = 0;i < n;++i)
</span><span> {
</span><span> while (k == k1)</span><span>
{
</span><span> k = rand() % 3;
</span><span> }</span><span>
switch (k)</span><span>
{
</span><span> case 0:s[i] = '0';cout << s[i];break;
</span><span> case 1:s[i] ='1';cout << s[i];break;</span><span> //вместо 0,1,2 пишешь свой алфавит .
case 2:s[i] ='2';cout << s[i];break;</span><span>
}</span><span>
k1 = k;</span><span>
}</span>
<span> system("pause");
</span><span>}</span>
Ответ: 3 и 4.
Объяснение:
Кабель и канат информацию не передают
a)
program name;
var a,b,c:integer;
begin
c:=0;
readln(a,b);
If (a>b+c) then writeln('Наибольшее число: ' , a)
else if (a<b+c) then writeln('Наибольшее число: ' , b)
else write();
readln(); <u> // взависимости от компилятора.</u>
end.
Сейчас ещё что-нибудь решу!