1)а) 64гбайт=64×1024=65536мбайт
б)256байт=256/1024²=0,000244мбайт
в)359кбайт=359/1024=0,35мбайт
2)а)256мбайт=256×1024²=268 435 456байт
б)64Гбайт=6.871948×10^10байт
в)125кбайт=125×1024=128000байт
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
Извини, только в паскале шарю)) (знаю решение в паскале)
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.