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

4 года назад

Преобразование информации, состоящее в изменении её содержания или формы представления 9 букв

Знания

Информатика

1 ответ:

aleksej00074 года назад

0 0

Возможно: архивация

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

Напишите программу в Паскаль!! Посчитать сумму всех целых чисел от 1 до 100 включительно Sn=(2*a1+d*(n-1))*n)/2

Elena

const a=1; d=1; n=100;
var s:real;

begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.

0 0

4 года назад

СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА Нужно найти максимальный элемент главной диагонали матрицы (делфи). Делаю вот так, но ничего не по

Мария724

procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента

...

begin

...

Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента

for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам

for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам

...

end;

0 0

3 года назад

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

PVadimus [121]

begin

var a := ReadArrInteger(15);

for var i := 14 downto 0 do

Println(a[i]);

end.

0 0

4 года назад

Срочно, помогите, информатика 10 класс

Вика0908

Ответ:

program Calc;

var

k, x, a, c, y: Double;

begin

Write ('k, x, a, c = ');

ReadLn (k, x, a, c);

if x > 0 then begin

y := k * Sqr (x);

WriteLn ('y = ', y);

end else if a + c <> 0 then begin

y := - x / (a + c);

WriteLn ('y = ', y);

end else

WriteLn ('деление на ноль');

ReadLn;

end.

0 0

3 года назад

Три одноклассника — Влад, Тимур и Владимир, встретились спустя 11 лет после окончания школы. Выяснилось, что один из них стал ак

Маргарита1907

Владимир - физик
Влад- юрист
Тимур-актер

0 0

4 года назад

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