Вычислить величину числа n в степени k(n i k-натуральні) n принадлежит интервалу от 2 до 7(включительно),а число k принадлежит интервалу от 1 до 6(включительно).напишите решение в с# с !
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
function Sed(n:integer):integer; // Возвращает сумму четных цифр в числе begin (n,Result):=(Abs(n),0); while n>0 do begin var d:=n mod 10; if d.IsEven then Result+=d; n:=n div 10 end end;
begin var (a,b):=ReadInteger2('Введите два целых числа через пробел:'); var (s1,s2):=(Sed(a),Sed(b)); if s1>s2 then Writeln(a) else Writeln(b) end.
Пример Введите два целых числа через пробел: 6213 5841 5841
begin var r:=Abs(ReadReal('Введите действительное число:')); if Trunc(r).IsEven then Writeln('YES') else Writeln('NO') end.
Латинские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке и имеют одинаковые коды. Цифры и знаки препинания в кодовых таблицах КОИ-8 и Windows имеют различные коды. Русские таблицы в кодовых таблицах КОИ-8 и Windows расположены в порядке возрастания их кодов. Русские таблицы в кодовых таблицах КОИ-8 и Windows расположены в лексико-графическом порядке. Русские таблицы в кодовых таблицах КОИ-8 и Windows имеют различные коды. В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.
Модельный ответ:
Истинные высказывания: 3, 5, 8.
Модельный ответ с подсчетом баллов:
Каждый правильный ответ
Учащийся уложился в 5 минут (при правильном ответе)
Максимальный балл:
Задание №2. Информационная компетентность: Аспект "Первичная обработка информации". Уровень I.
Вам нреобходимо закодировать и раскодировать слова в десятичном и двоичном коде. Пользуясь кодовой таблицей ASCII,
а) закодируйте тексты:
Текст Десятичный код Двоичный код APPLE DELETE MOUSE 7-4=3
Внимание! Если программа не работает, обновите версию!
function Sed(n:integer):integer;
// Возвращает сумму четных цифр в числе
begin
(n,Result):=(Abs(n),0);
while n>0 do begin
var d:=n mod 10;
if d.IsEven then Result+=d;
n:=n div 10
end
end;
begin
var (a,b):=ReadInteger2('Введите два целых числа через пробел:');
var (s1,s2):=(Sed(a),Sed(b));
if s1>s2 then Writeln(a) else Writeln(b)
end.
Пример
Введите два целых числа через пробел: 6213 5841
5841
begin
var r:=Abs(ReadReal('Введите действительное число:'));
if Trunc(r).IsEven then Writeln('YES') else Writeln('NO')
end.
Примеры
Введите действительное число: -435.234
NO
Введите действительное число: 20608.6536
YES
Модельный ответ:
Истинные высказывания: 3, 5, 8.
Модельный ответ с подсчетом баллов:
Каждый правильный ответ
Учащийся уложился в 5 минут (при правильном ответе)
Максимальный балл:
Задание №2. Информационная компетентность: Аспект "Первичная обработка информации". Уровень I.
Вам нреобходимо закодировать и раскодировать слова в десятичном и двоичном коде. Пользуясь кодовой таблицей ASCII,
а) закодируйте тексты:
б) декодируйте тексты:
Десятичный код Текст 69 78 84 69 82 80 65 73 78 84 66 65 67 75 83 80 65 67 69 Двоичный код Текст 01000101 01001110 01000100 01001000 01001111 01001101 01000101 01010111 01001111 01010010 01000100 01000110 01001111 01001111 01010100 01000010 01000001 01001100 01001100Модельный ответ:
а):
б):