Pascal
var
s : string;
T : text;
i : integer;
begin
assign (T,'File.txt'); //Ассоциация переменной T с файлом File.txt
rewrite (T); //Перезапись файла T и открытие его для записи
for i := 1 to 6 do
begin
readln (s);
writeln (T,s);
end;
close(T); //Закрытие файла T
end.
var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
13 символов в пароле, 5 символов в алфавите
4<5<8
2²<5<2³, округляем в большую строну, значит i=3
3 бит* 13 символов=39 бит:8=4,785≈5(округляем в большую сторону)
5 байт *75=375 байт
Ответ: 375 байт
program test;
var a, b, i: integer;
begin
write('Enter a, b: ');
readln(a, b);
for i:=a to b do
if i mod 2 = 0 then
write(i, ' ');
readln;
end.
11000010 в двоичной(194)
302 в восьмеричной(194)
С2 в шеснацетеричной(194)
1111111 в двоичной(7F)
177 в восьмеричной(7F)
127 в десятичной(7F)