Все категории

2 года назад

Написать программу которая запрашивает два целых числа и выводит на экран больший из них

Знания

Информатика

1 ответ:

Андрей Вивальди [50]2 года назад

0 0

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.

Читайте также

Здравствуйте! Помогите пожалуйста решить задачу с помощью 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 года назад

Как перевести в двоичную систему числа 166,43.54

brakys

166 дели на 2 43 тоже много раз пок ане получится 1 или 2 в конце

0 0

4 года назад

Cообщение записанное с помощью всех символов используемого алфавита: SARANCHATRAVAOMNOMNOM Определите информационный объем этого

Dmitrij R

I=N*K
N=15,по умолчанию K=8 бит
<span>I=15*8=120

Через Дано будет также</span>

0 0

3 года назад

задача 57. написать дано, найти,решение

penkinol [4.8K]

.......................................

0 0

4 года назад

напишите программу , которая выводит номера билетов, чтобы они не повторялись

fg521

Я так понимаю намера билетов надо вывести в случайном порядке?

Пусть надо вывести в случайном порядке номера 100 билетов

program RND;

var a:array[1..100]of integer;

i.j,f:integer;

begin

randomize;

i:=1;

white i<101 do begin

f:=0;

A[i]:=int(random(100));

for j:=1 to i do if A[j]=A[i] then f:=1;

if f=0 then i:=i+1;

end;

for i:=1 to 100 do writeln(A[i]);

end.

0 0

3 года назад