4 года назад

Записать развернутую формулу

Знания

Информатика

1 ответ:

Zhanna134 года назад

0 0

71.5 = 1000111.1

11101 = 29

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

Написать программу вычисления наименьшего элемента массива.

Verans

Program go;
type lol=array[1..100] of integer;
var t:lol;
i,n,min:integer;
begin
readln(n);
for i:=1 to n do
readln(t[i]);
min:=99999;
for i:=1 to n do
if(min>t[i]) then min:=t[i];
writeln('минимальное чисо ', min);
end.

0 0

4 года назад

В торговом центре продаются яблоки известно что при покупке свыше 2 кг яблок покупатель получает скидку 20% на все остальные пок

Fleur-

Ответ: 1 изображение - код

2 изображение - проверка, как в задании

Код:

program school10;

Var a, b:Real;

begin

Write('Введите цену 1 кг яблок>> ');

readln(a);

Write('Введите кол-во покупаемых кг. яблок>> ');

Readln(b);

If b>2 then

Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')

Else write('Стоймость яблок составит ', b*a, ' руб.');

end.

0 0

4 года назад

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

Придумай и запиши истиное суждение и ложное

Александр Лэйс [48]

Истинное-У кошки Мурки один хвост.
Ложное-Наше домашнее животное муравей.

0 0

4 года назад

Капроновый шнур длинной 30м разрезали на три части. Причём одна из них на 1м больше другой и на 1м меньше третьей . Найди длину

Раф888

X - длина шнура 1 х-1длина шнура 2 х+1 длина шнура 3x+х+1+х-1=303х=30х=10 длина шнура 1 10-1=9 длина шнура 2 10+1=11 длина шнура 3

0 0

4 года назад

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

Напишите программу, которая для трех случайных чисел выводит на экран ответ на следующий вопрос: правда ли, что первое число рав

Валерия1987

Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.

0 0

4 года назад