Program Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
<span>End.</span>
1.
<span>Нажать ctrl+H и в строчке "что" написать )
а в строчне "Заменить на" )_ - _это пробел
или скобка это ", тогда этот символ</span>
2.
Грамматические и Орфографические, Пунктуация.
<span>Нажмите кнопку Microsoft Office, а затем выберите
элемент Параметры Word.
Щелкните пункт Правописание.
Нажмите кнопку Параметры автозамены.
На вкладке Автозамена установите флажок Автоматически исправлять
орфографические ошибки.</span>
4.
<span>Чтобы быстро убрать все лишние пробелы и
табуляторы в началах и концах строк, выделите весь текст, задайте
выравнивание по центру – пробелы будут удалены. После этого задайте нужное
выравнивание, например по ширине. Выберите меню Правка | Заменить… В
поле «Найти» введите пробел (нажмите на пробел). Нажмите кнопку «Больше», чтобы
раскрыть диалог. Нажмите кнопку «Специальный» и появившемся меню выберите Знак
абзаца. В поле «Найти» добавится текст «^p».
В поле «Заменить на» вставьте один знак абзаца «^p».
Нажмите кнопку «Заменить всё»</span>
Как-то так наверное,не уверена
Var
a: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
av: real; i, t: integer;
begin
writeln('Введите температуру воздуха за неделю.');
for i := 1 to 7 do
begin
write(a[i], ' -> '); readln(t); av := av + t;
end;
av := av / 7;
writeln('Средняя температура за неделю: ', av:0:2, ' град.');
readln;
end.
// тестировалось на C#.Net Framework 4.5
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}
