Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.

0 0

3 года назад

Сколько битов содержится в 15гб(гигабайт)

Дмитрий717

1248849018880. Лррлопопопооплппо

0 0

3 года назад

Прочитать ещё 2 ответа

Здравствуйте! Помогите пожалуйста решить задачу с помощью Pascal

Иван 85 [7]

Ответ:

program pr1;

uses crt;

var

i,n:Integer;

s:Real;

function Pow(x:Integer; y:Integer) : Integer;

var

j,s1:Integer;

begin

s1:=1;

for j:=1 to y do s1:=s1*x;

Pow:=s1;

end;

begin

s:=1;

Writeln('Введите колличество аргументов типа 1/2^n.');

Write('n=');

ReadLn(n);

Write('S=1');

For i:=1 to n do

begin

s:=s+((Pow(-1,i))*(1/(Pow(2,i))));

Write('+(',Pow(-1,i),'*1/',(Pow(2,i)),')');

end;

Write('=',s);

readln;

end.

Объяснение:

Через цикл нужное количество раз прибавляешь к S 1/(2^i ) умноженное на -1^i, Что бы менять знак.

0 0

4 года назад

Пожалуста ответьте!!!!!!!

Antonina-Sk [4]

Иероглифы
как - то так...

0 0

3 года назад

Прочитать ещё 2 ответа