4 года назад

Нарисуйте схематически счеты с числами 165, 2043

Знания

Информатика

1 ответ:

pijmaster [145]4 года назад

0 0

1) *
******
*****

2)**
т.к. тут 0, то ничего нет
****
***

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

MS Excel Определите результат формулы : ДЛСТР(0,0012)+МИН(15;16;17) ОТВЕТ:23, 20, 21, 22

anna141310 [80]

<span>ДЛСТР(0,0012) - функция, возвращающая количество символов в аргументе, который рассматривается, как текстовая строка. В строке "0,0012" шесть символов и мы получим значение 6.

</span><span>МИН(15;16;17) - функция, возвращающая минимальное значение из набора своих аргументов. В данном случае она вернет значение 15

Сумма этих значение даст 6+15=21. Это и есть ответ.

Замечание. Строго говоря, в ДЛСТР() надо писать "0,0012", потому что если написать именно как указано в задании, функция вернет ОШИБКУ.
</span>

0 0

3 года назад

Написать программу на языке паскаль. Задача: Дано 10 чисел, найти сумму положительных и сумму отрицательных

passionatemoscow

Var
   A,Sp,So:real;
   i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then So:=So+A
    else Sp:=Sp+A;
    End;
WriteLn('Сумма отрицательных: ',So);
WriteLn('Сумма положительных: ',Sp);
End.

0 0

4 года назад

ПОМОГИТЕ! Спасибо заранее!

Дамира123

А в какую СС перевести то надо?

0 0

4 года назад

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

efferalgan

procedure Roots(a, b, c: real; var x1, x2: real;

var fail: boolean);

begin

var D := b * b - 4 * a * c;

if D < 0 then

fail := True

else

begin

fail := False;

D := Sqrt(D);

x1 := (-b - D) / (2 * a);

x2 := (-b + D) / (2 * a);

end

end;

begin

var x1, x2: real;

var fail: boolean;

loop 3 do

begin

var (a, b, c) := ReadReal3('Введи a, b, c:');

Roots(a, b, c, x1, x2, fail);

if fail then

Println('Нет действительных корней')

else if x1 = x2 then

Println('x =', x1)

else

Println('x1 =', x1, ' x2 =', x2)

end

end.

0 0

4 года назад

Дана сторона равностороненого треугольника. Определите площадь и периметр треугольника.

Александр Зрячкин [49]

Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.

0 0

4 года назад