<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
Под управлением процессора информация о цвете каждого пикселя экрана компьютера заносится для хранения в видеопамять. Видеопамять— это электронное энергозависимое запоминающее устройство. Глубина цвета, а значит, количество цветов в палитре компьютера, зависит от размера видеопамяти. Видеопамять современных компьютеров составляет 256, 512 и более мегабайтов.
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>
Вот эта таблица написанная в блокноте на html языке.
Что бы её посмотреть просто переименуй с "таблица.txt" на "таблица.html" и открой её в браузере.