Выделить первую ячейку и удерживая нажатой клавишу CTRL можно выделить и другие ячейки и удалить
var
a, b: <em>real</em>;
begin
readln(a, b);
writeln((sqr(a) + sqr(b)) / 2);
writeln((System.Math.Abs(a) + System.Math.Abs(b)) / 2);
<span>end.</span>
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка, способствующего хорошему стилю программирования, использующему структурное программирование и структурированные данные.
Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.
Uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.