Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.
Вот на языке Си:
#include <stdio.h>
#include <locale.h>
int main() {
setlocale (LC_ALL, "RUS");
int num;
printf("Введи число, которое хочешь проверить: ");
scanf ("%d", &num);
if ( num % 3 == 0)
printf("Можешь любить это число!");
else printf("Число не твое, забудь его.");
system ("pause");
return 0;
}
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;
Ответ:
A) 320 бит
Объяснение:
1) 2 байта * 20 символов = 40 байт;
2) 1 байт = 8 бит;
3) 40 * 8 = 320;