Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.
#include <iostream>
int main()
{
int
number,
val,
digits;
bool query[2]{false, false};
std::cout << "Введите число: ";
std::cin >> number;
std::cout << std::endl << "Введите цифру, которую нужно найти в числе: ";
std::cin >> val;
while(number)
{
digits = number % 10;
number /= 10;
if(digits == 3)
query[0] = true;
else if(digits == val)
query[1] = true;
}
if(query[0])
std::cout << "Число 3 входит" << std::endl;
else std::cout << "Число 3 не входит" << std::endl;
if(query[1])
std::cout << "Число " << val << " входит" << std::endl;
else std::cout << "Число " << val << " не входит" << std::endl;
}
Сообщение содержит 36 символов, т.е. скорость передачи 36/0.00001 = 3.600.000 символов в секунду, после чего можно говорить, что некорректно задан вопрос,т.к. не указана кодировка символов. Если она указана, то 3.600.000 умножаешь на количество бит, которыми кодируется символ
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.