Program vasha_zadacha_1;
var a,b,c:integer ;
begin
c:=0;
writeln('введите промежуток от');
readln(a);
writeln('до');
readln(b);
if a>b then
for b:=b to a do begin
if (b mod 5<>0) then c:=c+1;
end;
for a:=a to b do begin
if (a mod 5<>0) then c:=c+1;
end;
writeln('колличество чисел не кратных пяти в этом диапазоне ', c);<span>
end.</span>
Ответ:
a = float(input("Введите в каких единицах измерения будите вводить числа. 1 - килобайты, 2 - мегобайты, 3 - гигобайты... (терабайт, петабайт, эксабайт, зеттабайт, йоттобайт) "))
b = float(input("введите число "))
vid = float(input("введите в какие единицы хотите перевести число (см первую запись) "))
d = 1024**a * b
er = 1024**vid
print(d/er )
Объяснение:
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 5=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
Всё правильно, это "11", о котором ты спрашиваешь, записано в 3-й системе.
Когда ты делишь 148 на 9 (в десятичной системе), у тебя получается остаток 4:
148 : 9 = 16 (ост 4)
Если записать то же самое, но в троичной системе, получится:
12111 : 100 = 121 (ост 11)
Для любой системы счисления с основанием N:
число N^2 запишется как 100
число N^3 запишется как 1000
число N^4 запишется как 10000
и т.д.
При делении на N^2 остаток будет две последние цифры;
при делении на N^3 остаток будет три последние цифры
и т.д.