// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,150);
a.Println;
var s:=a.Where(x->x in [100..999]);
if s.Count>0 then Writeln('Ср.арифм. трехзначных ',a.Average)
else Writeln('Нет трехзначных чисел')
end.
<u><em>Тестовое решение:</em></u>
n= 10
143 67 131 52 39 135 42 83 105 142
Ср.арифм. трехзначных 93.9
2) А) 627
Б)72
В)3997
Г)10443
Д) и Е) не могу прости(
Вот сайт(на сайте можно переводить из одной систем счисления в другую): http://allcalc.ru/node/418?element_nTo=2&METOD=on&element_nTo=2
3) А) 1100001100+1100011001 = 780 + 793 = 1573
Б)110010001+1001101 = 401 + 77 = 478
В) 111111111001+11111111100101 = 4089 + 16357 = 20446
Г) и Д) не могу прости(
Остальные задания посмотри на сайте который я дала выше)
Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??