3 года назад

6 целых 1/4 - 3 целых 2/5

Знания

Информатика

1 ответ:

scottthestorm3 года назад

0 0

6 целых 1/4 - 3 целых 2/5.
находим наименьший общий знаменатель и домножаем.
получается: 6 целых 5/20 - 3 целых 8/20.
так как в первой дроби числитель меньше второй дроби, переводим в неправильную дробь.
5 целых 25/20 - 3 целых 8/20 = 2 целых 17/20.

Ответ. 2 целых 17/20

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

Дано натуральное число n.Найти минимальную цифру.

Banata [669]

Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.

0 0

4 года назад

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

Флажковый сигнальщик использует для передачи сообщения 36 различных жестов.Сообщение состоящие из 50 жестов, сигнальщик передает

НеллиВ

Используем формулу $N= 2^{i}$
$i=log_{2} N=6$ бит
Используем формулу $L=k*i$ - где k кол-во жестов.
$L=50*6=300$ бит
$V= \frac{L}{T}= \frac{300}{30}=10$ бит/с

0 0

4 года назад

ИЗМЕНИТЕ ПРОГРАММУ ТАК, ЧТОБЫ С ЕЕ ПОМОЩЬЮ МОЖНО БЫЛО НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ ПРОИЗВОЛЬНЫХ ДЕСЯТИ ЦЕЛЫХ ДВУЗНАЧНЫХ ЧИСЕЛ

Buser

Program n_6;

const
n=10;

var
m:array[1..n] of integer;
i,x,y,z:integer;

procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;

begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.

0 0

4 года назад

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

Марина 174

Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>

0 0

4 года назад

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

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

Mama45 -35

type z=array of integer;

var a: z;

i,j,k: integer;

begin

setlength(a,1);

readln(a[0]);

i:=1;

while(a[i-1]<>0) do

begin

setlength(a,i+1);

readln(a[i]);

i:=i+1;

end;

setlength(a,length(a)-1);

for i:=0 to length(a) do

for j:=0 to length(a)-2 do

if (a[j] < a[j+1]) then

begin

k:=a[j];

a[j]:= a[j+1];

a[j+1]:=k;

end;

write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);

end.

0 0

4 года назад