Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
<h3>PascalABC</h3>
Если боишься сделать ошибку, то не бойся. Бери и делай. Будет ошибка - будешь её понимать, и исправлять.
Задача достаточно проста, чтобы её можно было решить без ошибок. Нуууу, если только пофантазировать, то можно предположить что кто-либо может забыть, что массивы могут быть как чётной, так и нечётной длины.
Автоматический (через заданное количество времени), и по щелчку
Отправить письмо.
Начало
Возми письмо,конверт и марку.
Наклей марку.
Напиши адрес на конверте.
Сложи письмо.
Положи письмо в конверт.
Заклей конверт.
Выйди из дома. Брось конверт в почтовый ящик.
<span>Конец</span>