Шаг 1. Узнаёшь коды символов по таблице нужной кодировки (ну или слентяйничать, как я)
Шаг 2. Перевести все коды из
в
калькулятором... Или нет х)
Шаг 3. Записать всё по порядку. Если кодировка однобайтная, как сейчас, то можно хоть подряд...
4D 79 20 68 61 70 70 79 20 45 6E 67 6C 69 73 68
1. Лицензионные
2. Нелегальные (пиратские)
3. условно-бесплатные
4. бесплатные
<u>Задание 1</u><em>(Это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки)</em>
program day;
var c,a,b:real;
Begin
Readln(a,b);
if a>b
then begin c:=a/b;
writeln('результат ',c:0:0);
end
else writeln('a не должно быть больше b');
<span>end.</span>
Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.