4 года назад

Задани 1,2,срочно! помогите 15 баллов

Знания

Информатика

1 ответ:

Вера Семё [1]4 года назад

0 0

1. 1
2. Ввод и отображение текста либо второй вариант загрузка файла(считывание файла)

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

Автоматическое устройство осуществило перекодировку текстового сообщения на русском языке, первоначально записанного в Unicode,

Absolem

480 бит = 60 байт

нужно решить уравнение

x/2=x-60 x=2x-120 x = 120 символов

0 0

4 года назад

Запишите на языке Pascal следующее выражение: (c+d)² -------- √2x

Imruruwe

//PascalABC.NET

power((c + d), 2) / (sqrt(2 * x)); $\frac{(c + d)^{2}}{ \sqrt{2x} }$

power((c + d), 2) / (sqrt(2) * x); $\frac{(c + d)^{2}}{ \sqrt{2}x }$

0 0

4 года назад

Program n_3_1 var s,i: integer a:array[1..10] of integer; begin s:=0 randomize for i:=1 to 10 do begin a[i]:=random(100) write (

Колитова София [7]

1 определить имя массива - a
2 узнать тип элементов массива - integer (целый)
3 какой переменной обозначены индексы элементов массива - i
4 кол-во элементов в данном массиве - 10
5 как обозначается текущий элемент массива - a[i]
6 есть ли отрицательные элементы в данном массиве - нет (элементы массива - это числа из диапазона [0,99]

0 0

4 года назад

Помогите с информатикой тема: Алгоритм. Нужно придумать слово для алгоритма например вот так: фотка внизу мы в классе сделали на

Shunechka [64]

Сделать домашнее задание. Сесть за стол, достать дневник, достать тетрадь, достать учебник, решить задачи. конец.

0 0

3 года назад

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

Помогите написать блок-схему в pascal

Ujdase [50]

var a,b,x: real;

begin

writeln('Введите коэффициенты линейного уравнения ax=b');

readln(a,b);

if (a=0) and (b=0) then writeln('Решений бесконечно много')

else

if (a=0) and (b<>0) then writeln('Решений нет')

else

if a<>0 then

begin

x:=b/a;

writeln('Корень уравнения: ',x)

end

end.

0 0

3 года назад