Записать в соответствии с правилами языка Паскаль выражение 6a^2+15ab-13b^2

Знания

Информатика

1 ответ:

henryrollins1 год назад

0 0

Sqr(6*a)+15*a*b-sqr(13*b)

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

Написать программу по вычислению y при y =Kx+b при известных целых k и b срочно пожалуйста!!!!!!! В Паскале

Вадим22881488

var y, x: real;

k, b: integer;

begin

readln(k);

readln(b);

readln(x);

y := k*x+b;

writeln(y);

end.

0 0

1 год назад

ОТЛИЧИТЕЛЬНЫЕ СВОЙСТВА РОМБА ПРЯМОУГОЛЬНИКА И ТРЕУГОЛЬНИКА.

GavrilovaVasilisa [35]

Объем , цвет(возможен ) , форма

0 0

4 года назад

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

От чего зависит качество изображения отображаемого на экране? Варианты ответа (возможно несколько): -от разрешения (количества т

Omada

1,4-вроде должно быть так

0 0

4 года назад

Почему некоторые файлы не становятся меньше после применения архиваторов, а некоторые даже наоборот становятся больше? Потому чт

Иван Лазаревххх

Потому что архивторы работают не со всеми типами файлов

0 0

4 года назад

1. Составить программу ,которая определяет ,сколько раз в предложении встречается слово "дом". 2. Составить программу ,вычисляющ

Женя8891 [24]

Код PascalABC.NET 3.2:

Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
    if S[i] = 'д' then
       if S[i+1] = 'о' then
          if S[i+2] = 'м' then
             k:=k+1;
WriteLn(k)
End.

Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.

0 0

4 года назад