Дана программа: program primer; var m, result : real; begin writeln('введите значения переменной m'); write('m='); readln(m); result : = sqr((10+m)*7); writeln ('sqr((10+m)*7)', result: 8: 0); readln; end. запусти паскаль, введи данную программу, получи результат, если m=2. онлайн паскаль выдаёт ошибку

Result должен быть с новой строки, т.к. это тоже запрос

Відповідь:



Пояснення:

1 . обычный режим;  режим Web-документа;  режим разметки страницы;  режим структуры документа;  схема документа;  во весь экран;  режим предварительного просмотра.

2 . режим разметки страницы

3. Enter

4.  1) «Alt» +«0151». Цифры  на цифровой клавиатуре, которая находится справа, при включенном «NumLock».

   2) наберите «2014» и нажмите «Alt+X» –

   3) «Ctrl+Alt+-

   4) «Вставка»\«Символ» \«Другие символы»\«Шрифт»\«(обычный текст)»\«Набор» – «знаки пунктуации»\«Вставить»

5. 1) «Ctrl+-»

   2) символ "-"

6. 1950 =  MCML

   1963 =  MCMLXIII

I - 1

X - 10

C - 100

M - 1000

V - 5

L - 50

D - 500

I - 1 000

V - 5 000

X - 10 000

L - 50 000

C - 100 000

D - 500 000

M - 1 000 0000

7. Клавиши

На один символ влево  

Стрелка "Влево"

На один символ вправо

Стрелка "Вправо"

На один строку вверх

Стрелка "Вверх"

На один строку вниз

Стрелка "Вниз"

На один слово влево

Ctrl + Стрелка "Влево"

На один слово вправо

Ctrl + Стрелка "Вправо"

На один абзац вверх

Ctrl + Стрелка "Вверх"

На один абзац вниз

Ctrl + Стрелка "Вниз"

В начало текущей строки

Home

В конец текущей строки

End

На один экран вверх

Page Up

На один экран вниз

Page Down

В начало экрана

Ctrl + Page Up

В конец экрана

Ctrl + Page Down

В начало документа

Ctrl + Home

В конец документа

Ctrl + End

9.  Установленный на ноутбуке эмулятор мыши (Alt+Shift+NumLock)

Тачпад.

Определенные клавиши на клавиатуре (8.)

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный