Прикрепил скрин программы
Г) бит, байт, килобайт, мегабайт, гигабайт
В пятеричной системе 0.33=0.13111111111
в пятнадцатеричной 0,33=0,4E3B3B3B3B3
Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
Программа с while
program raf105;
var a:integer;
begin
while a<>15 do
begin
a:=a+1;
writeln(a);
end
end.
Программа с repeat
program raf105;
var a:integer;
begin
repeat
a:=a+1;
writeln(a);
until a=15;
end.
<em>Написано на языке PascalABC.NET</em>