Ответ:
36910 - вези
Объяснение:
нет 36 буквы алфавита , нет 69 буквы алфавита , нет 91 буквы алфавита, нет 0 буквы алфавита
11001-1001=10000
10001-101=9900
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -99, 99);
a.Println;
var k := ReadInteger('Введите число для отбора по кратности:');
var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;
b.Println
end.
<h3>Пример</h3>
n= 21
-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85
Введите число для отбора по кратности: 3
51 -72 -51 42 60 -24 -21 45
var x,y:real; i:integer;
Begin
x := 1;
while(x < 50) do Begin
read(y);
x := x * y;
writeln(' Произведение = ', x);
inc(i);
End;
write('Введено ',i,' чисел');
End.
#include <iostream>
using namespace std;
int main() {
int a,b,c;
cin >> a >> b >> c;
cout << ((a/100)==0 && (b/100)==0 && (c/100)==0) << endl;
}